BBS in a Box 7

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Util / Md-Mz / MemINIT 2.0.3 Source.cpt / MemINIT 2.0.3 / MemINIT INIT.c < prev next >
MacBinary | 1992-07-13 | 21.1 KB | [TEXT/KAHL]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Mon Jul 13 10:32:55 1992, modified Mon Jul 13 10:32:55 1992, creator Think C, type ASCII, 20963 bytes "MemINIT INIT.c" magic text fragment for file(1) cmd, 1st line "#include "ShowIconFamily.c"", 2nd line "#include "MemINIT.h"", at 0x5263 408 bytes resource magic text fragment for file(1) cmd, 1st line "#include "ShowIconFamily.c"", 2nd line "#include "MemINIT.h""	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[KAHL]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 4d 65 6d 49 4e 49 | 54 20 49 4e 49 54 2e 63 |..MemINI|T INIT.c|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 01 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 51 e3 00 | 00 01 98 a6 87 44 97 a6 |.....Q..|.....D..|
|00000060| 87 44 97 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.D......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 07 5a 00 00 |........|.....Z..|
|00000080| 23 69 6e 63 6c 75 64 65 | 20 22 53 68 6f 77 49 63 |#include| "ShowIc|
|00000090| 6f 6e 46 61 6d 69 6c 79 | 2e 63 22 0d 23 69 6e 63 |onFamily|.c".#inc|
|000000a0| 6c 75 64 65 20 22 4d 65 | 6d 49 4e 49 54 2e 68 22 |lude "Me|mINIT.h"|
|000000b0| 0d 0d 0d 70 61 73 63 61 | 6c 20 76 6f 69 64 20 6d |...pasca|l void m|
|000000c0| 61 69 6e 28 29 0d 7b 0d | 09 23 64 65 66 69 6e 65 |ain().{.|.#define|
|000000d0| 20 53 68 69 66 74 41 6d | 74 09 38 3b 09 09 09 09 | ShiftAm|t.8;....|
|000000e0| 09 09 09 2f 2f 20 41 6d | 6f 75 6e 74 20 74 6f 20 |...// Am|ount to |
|000000f0| 73 68 69 66 74 20 6d 65 | 6d 6f 72 79 20 61 6d 6f |shift me|mory amo|
|00000100| 75 6e 74 20 74 6f 20 66 | 69 74 20 69 6e 74 6f 20 |unt to f|it into |
|00000110| 6f 6e 65 20 77 6f 72 64 | 2e 0d 0d 09 61 73 6d 7b |one word|....asm{|
|00000120| 0d 09 09 09 62 72 61 09 | 09 09 40 53 65 74 55 70 |....bra.|..@SetUp|
|00000130| 0d 0d 40 43 6f 70 79 53 | 74 61 72 74 0d 40 6d 79 |..@CopyS|tart.@my|
|00000140| 56 61 72 73 09 09 64 63 | 2e 6c 09 09 30 0d 09 7d |Vars..dc|.l..0..}|
|00000150| 0d 09 0d 09 7b 20 20 2f | 2f 20 76 6f 69 64 20 56 |....{  /|/ void V|
|00000160| 42 4c 54 61 73 6b 28 29 | 0d 09 09 72 65 67 69 73 |BLTask()|...regis|
|00000170| 74 65 72 20 4d 65 6d 56 | 61 72 73 09 2a 56 61 72 |ter MemV|ars.*Var|
|00000180| 73 3b 0d 09 09 72 65 67 | 69 73 74 65 72 20 50 69 |s;...reg|ister Pi|
|00000190| 78 4d 61 70 50 74 72 09 | 53 63 72 65 65 6e 50 69 |xMapPtr.|ScreenPi|
|000001a0| 78 4d 61 70 3b 0d 09 09 | 23 64 65 66 69 6e 65 20 |xMap;...|#define |
|000001b0| 53 63 72 65 65 6e 42 61 | 73 65 09 61 34 3b 0d 09 |ScreenBa|se.a4;..|
|000001c0| 09 23 64 65 66 69 6e 65 | 20 53 63 72 65 65 6e 43 |.#define| ScreenC|
|000001d0| 74 72 09 61 35 3b 0d 09 | 09 0d 09 09 72 65 67 69 |tr.a5;..|....regi|
|000001e0| 73 74 65 72 20 73 68 6f | 72 74 09 09 53 63 72 65 |ster sho|rt..Scre|
|000001f0| 65 6e 57 69 64 74 68 3b | 0d 09 09 72 65 67 69 73 |enWidth;|...regis|
|00000200| 74 65 72 20 73 68 6f 72 | 74 09 09 53 63 72 65 65 |ter shor|t..Scree|
|00000210| 6e 52 6f 77 42 79 74 65 | 73 3b 0d 09 09 72 65 67 |nRowByte|s;...reg|
|00000220| 69 73 74 65 72 20 73 68 | 6f 72 74 09 09 42 61 72 |ister sh|ort..Bar|
|00000230| 50 69 78 3b 0d 09 09 23 | 64 65 66 69 6e 65 20 42 |Pix;...#|define B|
|00000240| 61 72 42 69 74 73 20 20 | 09 42 61 72 50 69 78 3b |arBits  |.BarPix;|
|00000250| 0d 09 09 23 64 65 66 69 | 6e 65 20 44 6f 74 42 69 |...#defi|ne DotBi|
|00000260| 74 73 09 09 42 61 72 50 | 69 78 3b 0d 09 09 72 65 |ts..BarP|ix;...re|
|00000270| 67 69 73 74 65 72 20 73 | 68 6f 72 74 09 09 43 6f |gister s|hort..Co|
|00000280| 70 79 57 6f 72 64 3b 0d | 09 09 72 65 67 69 73 74 |pyWord;.|..regist|
|00000290| 65 72 20 42 79 74 65 09 | 09 44 69 72 65 63 74 42 |er Byte.|.DirectB|
|000002a0| 69 74 73 3b 09 09 09 09 | 2f 2f 20 30 20 69 73 20 |its;....|// 0 is |
|000002b0| 42 2f 57 2c 20 31 20 69 | 73 20 69 6e 64 65 78 65 |B/W, 1 i|s indexe|
|000002c0| 64 2c 20 2d 31 20 69 73 | 20 64 69 72 65 63 74 2e |d, -1 is| direct.|
|000002d0| 0d 09 0d 09 09 23 64 65 | 66 69 6e 65 20 43 53 63 |.....#de|fine CSc|
|000002e0| 72 61 74 63 68 31 09 44 | 32 3b 0d 09 09 23 64 65 |ratch1.D|2;...#de|
|000002f0| 66 69 6e 65 20 43 53 63 | 72 61 74 63 68 32 09 44 |fine CSc|ratch2.D|
|00000300| 6f 74 42 69 74 73 3b 0d | 0d 09 09 23 64 65 66 69 |otBits;.|...#defi|
|00000310| 6e 65 20 43 75 72 44 6f | 74 50 6f 73 09 53 63 72 |ne CurDo|tPos.Scr|
|00000320| 65 65 6e 57 69 64 74 68 | 3b 0d 09 09 23 64 65 66 |eenWidth|;...#def|
|00000330| 69 6e 65 20 43 75 72 44 | 6f 74 42 69 74 73 09 44 |ine CurD|otBits.D|
|00000340| 32 3b 0d 09 09 0d 09 09 | 0d 09 09 61 73 6d 20 7b |2;......|...asm {|
|00000350| 0d 0d 40 56 42 4c 54 61 | 73 6b 09 6d 6f 76 65 6d |..@VBLTa|sk.movem|
|00000360| 2e 6c 09 09 44 34 2d 44 | 37 2f 41 34 2d 41 35 2c |.l..D4-D|7/A4-A5,|
|00000370| 2d 28 73 70 29 09 09 09 | 2f 2f 20 53 61 76 65 20 |-(sp)...|// Save |
|00000380| 72 65 67 69 73 74 65 72 | 73 20 74 68 61 74 20 77 |register|s that w|
|00000390| 65 20 63 61 6e 27 74 20 | 74 72 61 73 68 2e 0d 0d |e can't |trash...|
|000003a0| 09 09 09 6d 6f 76 65 2e | 6c 09 09 40 6d 79 56 61 |...move.|l..@myVa|
|000003b0| 72 73 2c 56 61 72 73 0d | 09 09 09 74 73 74 2e 62 |rs,Vars.|...tst.b|
|000003c0| 09 09 56 61 72 73 2d 3e | 52 53 52 43 2e 56 42 4c |..Vars->|RSRC.VBL|
|000003d0| 41 63 74 69 76 65 0d 09 | 09 09 42 4e 45 09 09 09 |Active..|..BNE...|
|000003e0| 40 56 42 4c 49 73 41 63 | 74 0d 40 56 42 4c 4e 6f |@VBLIsAc|t.@VBLNo|
|000003f0| 74 41 63 74 09 6d 6f 76 | 65 2e 77 09 09 23 2d 31 |tAct.mov|e.w..#-1|
|00000400| 2c 56 61 72 73 2d 3e 56 | 42 4c 52 65 63 2e 76 62 |,Vars->V|BLRec.vb|
|00000410| 6c 43 6f 75 6e 74 09 2f | 2f 20 4d 6f 76 65 20 68 |lCount./|/ Move h|
|00000420| 75 67 65 20 74 69 6d 65 | 20 64 65 6c 61 79 20 69 |uge time| delay i|
|00000430| 6e 74 6f 20 63 6f 75 6e | 74 2e 0d 09 09 09 62 72 |nto coun|t.....br|
|00000440| 61 09 09 09 40 53 6b 69 | 70 56 42 4c 0d 0d 40 56 |a...@Ski|pVBL..@V|
|00000450| 42 4c 49 73 41 63 74 09 | 74 73 74 2e 62 09 09 56 |BLIsAct.|tst.b..V|
|00000460| 61 72 73 2d 3e 53 63 72 | 6e 53 61 76 65 72 50 72 |ars->Scr|nSaverPr|
|00000470| 65 73 65 6e 74 0d 09 09 | 09 42 45 51 09 09 09 40 |esent...|.BEQ...@|
|00000480| 56 42 4c 4e 6f 53 61 76 | 65 72 0d 09 09 09 6d 6f |VBLNoSav|er....mo|
|00000490| 76 65 2e 6c 09 09 23 67 | 65 73 74 61 6c 74 53 63 |ve.l..#g|estaltSc|
|000004a0| 72 65 65 6e 53 61 76 65 | 72 41 74 74 72 2c 44 30 |reenSave|rAttr,D0|
|000004b0| 09 2f 2f 20 47 65 73 74 | 61 6c 74 20 73 65 6c 65 |.// Gest|alt sele|
|000004c0| 63 74 6f 72 2e 0d 09 09 | 09 5f 47 65 73 74 61 6c |ctor....|._Gestal|
|000004d0| 74 0d 09 09 09 42 4e 45 | 09 09 09 40 56 42 4c 4e |t....BNE|...@VBLN|
|000004e0| 6f 53 61 76 65 72 09 09 | 09 09 09 2f 2f 20 4c 65 |oSaver..|...// Le|
|000004f0| 61 76 65 20 6f 6e 20 65 | 72 72 6f 72 2e 0d 09 09 |ave on e|rror....|
|00000500| 09 6d 6f 76 65 09 09 41 | 30 2c 44 30 0d 09 09 09 |.move..A|0,D0....|
|00000510| 42 54 53 54 09 09 23 67 | 65 73 74 61 6c 74 53 61 |BTST..#g|estaltSa|
|00000520| 76 65 72 41 73 6c 65 65 | 70 2c 44 30 0d 09 09 09 |verAslee|p,D0....|
|00000530| 42 45 51 2e 73 09 09 40 | 56 42 4c 4e 6f 53 61 76 |BEQ.s..@|VBLNoSav|
|00000540| 65 72 0d 09 09 09 6d 6f | 76 65 2e 77 09 09 56 61 |er....mo|ve.w..Va|
|00000550| 72 73 2d 3e 52 53 52 43 | 2e 56 42 4c 54 69 6d 65 |rs->RSRC|.VBLTime|
|00000560| 2c 56 61 72 73 2d 3e 56 | 42 4c 52 65 63 2e 76 62 |,Vars->V|BLRec.vb|
|00000570| 6c 43 6f 75 6e 74 20 20 | 2f 2f 20 55 70 64 61 74 |lCount  |// Updat|
|00000580| 65 20 56 42 4c 43 6f 75 | 6e 74 2e 0d 09 09 09 62 |e VBLCou|nt.....b|
|00000590| 72 61 09 09 09 40 53 6b | 69 70 56 42 4c 0d 0d 40 |ra...@Sk|ipVBL..@|
|000005a0| 56 42 4c 4e 6f 53 61 76 | 65 72 09 6d 6f 76 65 2e |VBLNoSav|er.move.|
|000005b0| 77 09 09 56 61 72 73 2d | 3e 52 53 52 43 2e 56 42 |w..Vars-|>RSRC.VB|
|000005c0| 4c 54 69 6d 65 2c 56 61 | 72 73 2d 3e 56 42 4c 52 |LTime,Va|rs->VBLR|
|000005d0| 65 63 2e 76 62 6c 43 6f | 75 6e 74 20 20 2f 2f 20 |ec.vblCo|unt  // |
|000005e0| 55 70 64 61 74 65 20 56 | 42 4c 43 6f 75 6e 74 2e |Update V|BLCount.|
|000005f0| 0d 0d 2f 2f 20 54 65 73 | 74 20 53 74 75 66 66 0d |..// Tes|t Stuff.|
|00000600| 09 09 09 6d 6f 76 65 2e | 6c 09 09 56 61 72 73 2d |...move.|l..Vars-|
|00000610| 3e 56 42 4c 48 65 61 70 | 2c 44 30 0d 09 09 09 42 |>VBLHeap|,D0....B|
|00000620| 45 51 09 09 09 40 53 6b | 69 70 48 65 61 70 54 65 |EQ...@Sk|ipHeapTe|
|00000630| 73 74 09 09 09 09 2f 2f | 20 53 6b 69 70 20 69 66 |st....//| Skip if|
|00000640| 20 7a 65 72 6f 2e 0d 09 | 09 09 63 6d 70 2e 6c 09 | zero...|..cmp.l.|
|00000650| 09 54 68 65 5a 6f 6e 65 | 2c 44 30 0d 09 09 09 42 |.TheZone|,D0....B|
|00000660| 4e 45 09 09 09 40 52 65 | 64 6f 56 42 4c 09 09 09 |NE...@Re|doVBL...|
|00000670| 09 09 2f 2f 20 53 6b 69 | 70 20 69 66 20 69 6e 20 |..// Ski|p if in |
|00000680| 77 72 6f 6e 67 20 68 65 | 61 70 2e 0d 40 53 6b 69 |wrong he|ap..@Ski|
|00000690| 70 48 65 61 70 54 65 73 | 74 0d 09 09 09 74 73 74 |pHeapTes|t....tst|
|000006a0| 2e 77 09 09 4d 42 61 72 | 48 65 69 67 68 74 0d 09 |.w..MBar|Height..|
|000006b0| 09 09 42 45 51 09 09 09 | 40 53 6b 69 70 56 42 4c |..BEQ...|@SkipVBL|
|000006c0| 09 09 09 09 09 2f 2f 20 | 53 6b 69 70 20 69 66 20 |.....// |Skip if |
|000006d0| 6d 65 6e 75 62 61 72 20 | 68 69 64 64 65 6e 2e 0d |menubar |hidden..|
|000006e0| 0d 2f 2f 20 46 69 67 75 | 72 65 20 73 63 72 65 65 |.// Figu|re scree|
|000006f0| 6e 20 73 74 75 66 66 2e | 0d 09 09 09 74 73 74 2e |n stuff.|....tst.|
|00000700| 62 09 09 56 61 72 73 2d | 3e 43 6f 6c 6f 72 41 76 |b..Vars-|>ColorAv|
|00000710| 61 69 6c 0d 09 09 09 42 | 4e 45 09 09 09 40 46 69 |ail....B|NE...@Fi|
|00000720| 67 75 72 65 43 6f 6c 6f | 72 53 63 72 65 65 6e 0d |gureColo|rScreen.|
|00000730| 09 09 09 63 6c 72 2e 62 | 09 09 44 69 72 65 63 74 |...clr.b|..Direct|
|00000740| 42 69 74 73 0d 09 09 09 | 63 6c 72 2e 6c 09 09 53 |Bits....|clr.l..S|
|00000750| 63 72 65 65 6e 52 6f 77 | 42 79 74 65 73 0d 09 09 |creenRow|Bytes...|
|00000760| 09 6d 6f 76 65 2e 77 09 | 09 53 63 72 65 65 6e 52 |.move.w.|.ScreenR|
|00000770| 6f 77 2c 53 63 72 65 65 | 6e 52 6f 77 42 79 74 65 |ow,Scree|nRowByte|
|00000780| 73 09 2f 2f 20 53 63 72 | 65 65 6e 52 6f 77 20 69 |s.// Scr|eenRow i|
|00000790| 73 20 61 6e 20 6f 6c 64 | 20 6c 6f 77 2d 6d 65 6d |s an old| low-mem|
|000007a0| 6f 72 79 20 67 6c 6f 62 | 61 6c 2e 0d 09 09 09 6d |ory glob|al.....m|
|000007b0| 6f 76 65 2e 77 09 09 53 | 63 72 65 65 6e 52 6f 77 |ove.w..S|creenRow|
|000007c0| 42 79 74 65 73 2c 53 63 | 72 65 65 6e 57 69 64 74 |Bytes,Sc|reenWidt|
|000007d0| 68 0d 09 09 09 6c 73 6c | 2e 77 09 09 23 33 2c 53 |h....lsl|.w..#3,S|
|000007e0| 63 72 65 65 6e 57 69 64 | 74 68 09 09 09 09 2f 2f |creenWid|th....//|
|000007f0| 20 43 6f 6d 70 72 65 73 | 73 20 69 6e 74 6f 20 6f | Compres|s into o|
|00000800| 6e 65 20 77 6f 72 64 2e | 0d 09 09 09 6d 6f 76 65 |ne word.|....move|
|00000810| 2e 6c 09 09 53 63 72 6e | 42 61 73 65 2c 53 63 72 |.l..Scrn|Base,Scr|
|00000820| 65 65 6e 42 61 73 65 09 | 09 09 2f 2f 20 53 63 72 |eenBase.|..// Scr|
|00000830| 6e 42 61 73 65 20 69 73 | 20 61 6e 6f 74 68 65 72 |nBase is| another|
|00000840| 20 6f 6c 64 20 6c 6f 77 | 2d 6d 65 6d 6f 72 79 20 | old low|-memory |
|00000850| 67 6c 6f 62 61 6c 2e 0d | 09 09 09 42 52 41 09 09 |global..|...BRA..|
|00000860| 09 40 53 6b 69 70 44 69 | 72 65 63 74 54 65 73 74 |.@SkipDi|rectTest|
|00000870| 0d 40 46 69 67 75 72 65 | 43 6f 6c 6f 72 53 63 72 |.@Figure|ColorScr|
|00000880| 65 65 6e 0d 09 09 09 6d | 6f 76 65 71 09 09 23 31 |een....m|oveq..#1|
|00000890| 2c 44 69 72 65 63 74 42 | 69 74 73 0d 09 09 09 6d |,DirectB|its....m|
|000008a0| 6f 76 65 2e 6c 09 09 56 | 61 72 73 2d 3e 4d 61 69 |ove.l..V|ars->Mai|
|000008b0| 6e 50 4d 61 70 2c 53 63 | 72 65 65 6e 50 69 78 4d |nPMap,Sc|reenPixM|
|000008c0| 61 70 0d 09 09 09 6d 6f | 76 65 2e 77 09 09 53 63 |ap....mo|ve.w..Sc|
|000008d0| 72 65 65 6e 50 69 78 4d | 61 70 2d 3e 62 6f 75 6e |reenPixM|ap->boun|
|000008e0| 64 73 2e 72 69 67 68 74 | 2c 53 63 72 65 65 6e 57 |ds.right|,ScreenW|
|000008f0| 69 64 74 68 0d 09 09 09 | 6d 6f 76 65 2e 77 09 09 |idth....|move.w..|
|00000900| 53 63 72 65 65 6e 57 69 | 64 74 68 2c 53 63 72 65 |ScreenWi|dth,Scre|
|00000910| 65 6e 52 6f 77 42 79 74 | 65 73 0d 09 09 09 6c 73 |enRowByt|es....ls|
|00000920| 72 2e 77 09 09 23 33 2c | 53 63 72 65 65 6e 52 6f |r.w..#3,|ScreenRo|
|00000930| 77 42 79 74 65 73 09 09 | 09 2f 2f 20 43 6f 6d 70 |wBytes..|.// Comp|
|00000940| 72 65 73 73 20 69 6e 74 | 6f 20 6f 6e 65 20 77 6f |ress int|o one wo|
|00000950| 72 64 2e 0d 09 09 09 6d | 75 6c 75 09 09 53 63 72 |rd.....m|ulu..Scr|
|00000960| 65 65 6e 50 69 78 4d 61 | 70 2d 3e 70 69 78 65 6c |eenPixMa|p->pixel|
|00000970| 53 69 7a 65 2c 53 63 72 | 65 65 6e 52 6f 77 42 79 |Size,Scr|eenRowBy|
|00000980| 74 65 73 0d 09 09 09 6d | 6f 76 65 2e 6c 09 09 53 |tes....m|ove.l..S|
|00000990| 63 72 65 65 6e 50 69 78 | 4d 61 70 2d 3e 62 61 73 |creenPix|Map->bas|
|000009a0| 65 41 64 64 72 2c 53 63 | 72 65 65 6e 42 61 73 65 |eAddr,Sc|reenBase|
|000009b0| 0d 40 53 6b 69 70 53 63 | 72 65 65 6e 46 69 67 75 |.@SkipSc|reenFigu|
|000009c0| 72 65 0d 0d 09 09 09 74 | 73 74 2e 62 09 09 44 69 |re.....t|st.b..Di|
|000009d0| 72 65 63 74 42 69 74 73 | 0d 09 09 09 42 45 51 09 |rectBits|....BEQ.|
|000009e0| 09 09 40 53 6b 69 70 44 | 69 72 65 63 74 54 65 73 |..@SkipD|irectTes|
|000009f0| 74 0d 09 09 09 63 6d 70 | 2e 77 09 09 23 52 47 42 |t....cmp|.w..#RGB|
|00000a00| 44 69 72 65 63 74 2c 50 | 69 78 4d 61 70 2e 70 69 |Direct,P|ixMap.pi|
|00000a10| 78 65 6c 54 79 70 65 28 | 53 63 72 65 65 6e 50 69 |xelType(|ScreenPi|
|00000a20| 78 4d 61 70 29 0d 09 09 | 09 42 4e 45 09 09 09 40 |xMap)...|.BNE...@|
|00000a30| 53 6b 69 70 44 69 72 65 | 63 74 54 65 73 74 0d 09 |SkipDire|ctTest..|
|00000a40| 09 09 53 54 09 09 09 44 | 69 72 65 63 74 42 69 74 |..ST...D|irectBit|
|00000a50| 73 0d 40 53 6b 69 70 44 | 69 72 65 63 74 54 65 73 |s.@SkipD|irectTes|
|00000a60| 74 0d 0d 2f 2f 20 46 69 | 67 75 72 65 20 62 61 72 |t..// Fi|gure bar|
|00000a70| 20 73 69 7a 65 2e 0d 09 | 09 09 63 6c 72 2e 6c 09 | size...|..clr.l.|
|00000a80| 09 43 53 63 72 61 74 63 | 68 32 0d 09 09 09 6d 6f |.CScratc|h2....mo|
|00000a90| 76 65 2e 6c 09 09 54 68 | 65 5a 6f 6e 65 2c 44 30 |ve.l..Th|eZone,D0|
|00000aa0| 0d 09 09 09 63 6d 70 2e | 6c 09 09 41 70 70 6c 5a |....cmp.|l..ApplZ|
|00000ab0| 6f 6e 65 2c 44 30 0d 09 | 09 09 42 4e 45 2e 73 09 |one,D0..|..BNE.s.|
|00000ac0| 09 40 4e 6f 74 41 70 70 | 6c 5a 6f 6e 65 53 69 7a |.@NotApp|lZoneSiz|
|00000ad0| 65 0d 09 09 09 6d 6f 76 | 65 2e 6c 09 09 41 70 70 |e....mov|e.l..App|
|00000ae0| 6c 4c 69 6d 69 74 2c 43 | 53 63 72 61 74 63 68 31 |lLimit,C|Scratch1|
|00000af0| 0d 09 09 09 6d 6f 76 65 | 2e 6c 09 09 43 53 63 72 |....move|.l..CScr|
|00000b00| 61 74 63 68 31 2c 43 53 | 63 72 61 74 63 68 32 0d |atch1,CS|cratch2.|
|00000b10| 09 09 09 73 75 62 2e 6c | 09 09 41 70 70 6c 5a 6f |...sub.l|..ApplZo|
|00000b20| 6e 65 2c 43 53 63 72 61 | 74 63 68 31 0d 09 09 09 |ne,CScra|tch1....|
|00000b30| 73 75 62 2e 6c 09 09 48 | 65 61 70 45 6e 64 2c 43 |sub.l..H|eapEnd,C|
|00000b40| 53 63 72 61 74 63 68 32 | 0d 09 09 09 42 52 41 09 |Scratch2|....BRA.|
|00000b50| 09 09 40 5a 6f 6e 65 53 | 69 7a 65 43 6f 6d 70 75 |..@ZoneS|izeCompu|
|00000b60| 74 65 64 0d 40 4e 6f 74 | 41 70 70 6c 5a 6f 6e 65 |ted.@Not|ApplZone|
|00000b70| 53 69 7a 65 0d 09 09 09 | 6d 6f 76 65 2e 6c 09 09 |Size....|move.l..|
|00000b80| 48 65 61 70 45 6e 64 2c | 43 53 63 72 61 74 63 68 |HeapEnd,|CScratch|
|00000b90| 31 0d 09 09 09 73 75 62 | 2e 6c 09 09 54 68 65 5a |1....sub|.l..TheZ|
|00000ba0| 6f 6e 65 2c 43 53 63 72 | 61 74 63 68 31 09 09 09 |one,CScr|atch1...|
|00000bb0| 2f 2f 20 46 69 6e 64 20 | 74 6f 74 61 6c 20 68 65 |// Find |total he|
|00000bc0| 61 70 20 73 70 61 63 65 | 2e 0d 40 5a 6f 6e 65 53 |ap space|..@ZoneS|
|00000bd0| 69 7a 65 43 6f 6d 70 75 | 74 65 64 0d 09 09 09 6c |izeCompu|ted....l|
|00000be0| 73 72 2e 6c 09 09 23 53 | 68 69 66 74 41 6d 74 2c |sr.l..#S|hiftAmt,|
|00000bf0| 43 53 63 72 61 74 63 68 | 31 09 09 09 2f 2f 20 53 |CScratch|1...// S|
|00000c00| 71 75 69 73 68 20 69 6e | 74 6f 20 6f 6e 65 20 77 |quish in|to one w|
|00000c10| 6f 72 64 2e 20 20 41 63 | 63 6f 6d 6f 64 61 74 65 |ord.  Ac|comodate|
|00000c20| 73 20 75 70 20 74 6f 20 | 31 36 4d 2e 0d 09 09 09 |s up to |16M.....|
|00000c30| 5f 46 72 65 65 4d 65 6d | 09 09 09 09 09 09 09 09 |_FreeMem|........|
|00000c40| 2f 2f 20 47 65 74 20 66 | 72 65 65 20 6d 65 6d 6f |// Get f|ree memo|
|00000c50| 72 79 20 69 6e 20 44 30 | 2e 0d 09 09 09 61 64 64 |ry in D0|.....add|
|00000c60| 2e 6c 09 09 43 53 63 72 | 61 74 63 68 32 2c 44 30 |.l..CScr|atch2,D0|
|00000c70| 0d 09 09 09 6c 73 72 2e | 6c 09 09 23 53 68 69 66 |....lsr.|l..#Shif|
|00000c80| 74 41 6d 74 2c 44 30 09 | 09 09 09 2f 2f 20 53 71 |tAmt,D0.|...// Sq|
|00000c90| 75 69 73 68 20 69 6e 74 | 6f 20 6f 6e 65 20 77 6f |uish int|o one wo|
|00000ca0| 72 64 2e 0d 09 09 09 6d | 75 6c 75 09 09 53 63 72 |rd.....m|ulu..Scr|
|00000cb0| 65 65 6e 57 69 64 74 68 | 2c 44 30 09 09 09 09 2f |eenWidth|,D0..../|
|00000cc0| 2f 20 4d 75 6c 74 69 70 | 6c 79 20 66 72 65 65 20 |/ Multip|ly free |
|00000cd0| 62 79 20 73 63 72 65 65 | 6e 20 77 69 64 74 68 2e |by scree|n width.|
|00000ce0| 0d 09 09 09 64 69 76 75 | 09 09 43 53 63 72 61 74 |....divu|..CScrat|
|00000cf0| 63 68 31 2c 44 30 09 09 | 09 09 2f 2f 20 20 61 6e |ch1,D0..|..//  an|
|00000d00| 64 20 64 69 76 69 64 65 | 20 62 79 20 74 6f 74 61 |d divide| by tota|
|00000d10| 6c 20 6d 65 6d 2e 0d 09 | 09 09 6e 65 67 2e 77 09 |l mem...|..neg.w.|
|00000d20| 09 44 30 0d 09 09 09 61 | 64 64 2e 77 09 09 53 63 |.D0....a|dd.w..Sc|
|00000d30| 72 65 65 6e 57 69 64 74 | 68 2c 44 30 09 09 09 09 |reenWidt|h,D0....|
|00000d40| 2f 2f 20 47 65 74 20 75 | 73 65 64 20 6d 65 6d 6f |// Get u|sed memo|
|00000d50| 72 79 2e 0d 09 09 09 63 | 6d 70 2e 77 09 09 53 63 |ry.....c|mp.w..Sc|
|00000d60| 72 65 65 6e 57 69 64 74 | 68 2c 44 30 0d 09 09 09 |reenWidt|h,D0....|
|00000d70| 42 48 49 09 09 09 40 53 | 6b 69 70 56 42 4c 0d 09 |BHI...@S|kipVBL..|
|00000d80| 09 09 6d 6f 76 65 2e 77 | 09 09 44 30 2c 42 61 72 |..move.w|..D0,Bar|
|00000d90| 50 69 78 0d 09 09 09 74 | 73 74 2e 62 09 09 44 69 |Pix....t|st.b..Di|
|00000da0| 72 65 63 74 42 69 74 73 | 0d 09 09 09 42 45 51 2e |rectBits|....BEQ.|
|00000db0| 73 09 09 40 53 44 42 31 | 0d 09 09 09 6d 75 6c 75 |s..@SDB1|....mulu|
|00000dc0| 09 09 53 63 72 65 65 6e | 50 69 78 4d 61 70 2d 3e |..Screen|PixMap->|
|00000dd0| 70 69 78 65 6c 53 69 7a | 65 2c 42 61 72 42 69 74 |pixelSiz|e,BarBit|
|00000de0| 73 20 20 2f 2f 20 43 6f | 6e 76 65 72 74 20 66 72 |s  // Co|nvert fr|
|00000df0| 6f 6d 20 70 69 78 65 6c | 73 20 74 6f 20 62 69 74 |om pixel|s to bit|
|00000e00| 73 2e 20 28 42 61 72 42 | 69 74 73 20 69 73 20 73 |s. (BarB|its is s|
|00000e10| 61 6d 65 20 72 65 67 69 | 73 74 65 72 20 61 73 20 |ame regi|ster as |
|00000e20| 42 61 72 50 69 78 29 0d | 40 53 44 42 31 0d 0d 2f |BarPix).|@SDB1../|
|00000e30| 2f 20 53 77 69 74 63 68 | 20 74 6f 20 33 32 2d 62 |/ Switch| to 32-b|
|00000e40| 69 74 20 61 64 64 72 65 | 73 73 69 6e 67 2e 0d 2f |it addre|ssing../|
|00000e50| 2f 20 20 20 4e 6f 72 6d | 61 6c 6c 79 20 77 65 20 |/   Norm|ally we |
|00000e60| 73 68 6f 75 6c 64 20 73 | 74 72 69 70 20 68 69 67 |should s|trip hig|
|00000e70| 68 20 62 79 74 65 20 6f | 66 20 50 43 20 68 65 72 |h byte o|f PC her|
|00000e80| 65 2c 20 62 75 74 20 69 | 73 20 77 61 73 20 73 74 |e, but i|s was st|
|00000e90| 72 69 70 70 65 64 20 77 | 68 65 6e 20 74 68 69 73 |ripped w|hen this|
|00000ea0| 20 72 6f 75 74 69 6e 65 | 20 77 61 73 0d 2f 2f 20 | routine| was.// |
|00000eb0| 20 20 69 6e 73 65 72 74 | 65 64 20 69 6e 74 6f 20 |  insert|ed into |
|00000ec0| 74 68 65 20 56 42 4c 20 | 74 61 73 6b 20 6c 69 73 |the VBL |task lis|
|00000ed0| 74 2e 0d 09 09 09 74 73 | 74 2e 62 09 09 56 61 72 |t.....ts|t.b..Var|
|00000ee0| 73 2d 3e 55 73 65 33 32 | 42 69 74 41 64 64 72 0d |s->Use32|BitAddr.|
|00000ef0| 09 09 09 42 45 51 09 09 | 09 40 44 6f 6e 74 53 77 |...BEQ..|.@DontSw|
|00000f00| 61 70 31 0d 09 09 09 6d | 6f 76 65 71 09 09 23 74 |ap1....m|oveq..#t|
|00000f10| 72 75 65 33 32 62 2c 44 | 30 0d 09 09 09 5f 53 77 |rue32b,D|0...._Sw|
|00000f20| 61 70 4d 4d 55 4d 6f 64 | 65 0d 09 09 09 6d 6f 76 |apMMUMod|e....mov|
|00000f30| 65 2e 62 09 09 44 30 2c | 2d 28 73 70 29 0d 40 44 |e.b..D0,|-(sp).@D|
|00000f40| 6f 6e 74 53 77 61 70 31 | 0d 0d 2f 2f 20 45 72 61 |ontSwap1|..// Era|
|00000f50| 73 65 20 6f 6c 64 20 62 | 61 72 2e 0d 09 09 09 6d |se old b|ar.....m|
|00000f60| 6f 76 65 2e 6c 09 09 53 | 63 72 65 65 6e 42 61 73 |ove.l..S|creenBas|
|00000f70| 65 2c 53 63 72 65 65 6e | 43 74 72 0d 09 09 09 6d |e,Screen|Ctr....m|
|00000f80| 6f 76 65 2e 77 09 09 53 | 63 72 65 65 6e 52 6f 77 |ove.w..S|creenRow|
|00000f90| 42 79 74 65 73 2c 44 30 | 0d 09 09 09 6c 73 72 2e |Bytes,D0|....lsr.|
|00000fa0| 77 09 09 23 32 2c 44 30 | 09 09 09 09 09 09 2f 2f |w..#2,D0|......//|
|00000fb0| 20 44 69 76 69 64 65 20 | 62 79 20 34 20 2d 20 6e | Divide |by 4 - n|
|00000fc0| 75 6d 20 6f 66 20 6c 6f | 6e 67 73 2e 0d 09 09 09 |um of lo|ngs.....|
|00000fd0| 73 75 62 71 2e 77 09 09 | 23 31 2c 44 30 09 09 09 |subq.w..|#1,D0...|
|00000fe0| 09 09 09 2f 2f 20 41 63 | 63 6f 75 6e 74 20 66 6f |...// Ac|count fo|
|00000ff0| 72 20 65 78 74 72 61 20 | 6c 6f 6f 70 2e 0d 09 09 |r extra |loop....|
|00001000| 09 74 73 74 2e 62 09 09 | 44 69 72 65 63 74 42 69 |.tst.b..|DirectBi|
|00001010| 74 73 0d 09 09 09 42 4d | 49 09 09 09 40 44 69 72 |ts....BM|I...@Dir|
|00001020| 65 63 74 42 69 74 73 45 | 72 61 73 65 0d 40 45 72 |ectBitsE|rase.@Er|
|00001030| 61 73 65 4c 6f 6f 70 09 | 63 6c 72 2e 6c 09 09 28 |aseLoop.|clr.l..(|
|00001040| 53 63 72 65 65 6e 43 74 | 72 29 2b 0d 09 09 09 64 |ScreenCt|r)+....d|
|00001050| 62 72 61 09 09 44 30 2c | 40 45 72 61 73 65 4c 6f |bra..D0,|@EraseLo|
|00001060| 6f 70 0d 09 09 09 42 52 | 41 09 09 09 40 44 6f 6e |op....BR|A...@Don|
|00001070| 65 57 45 72 61 73 65 4c | 6f 6f 70 0d 40 44 69 72 |eWEraseL|oop.@Dir|
|00001080| 65 63 74 42 69 74 73 45 | 72 61 73 65 0d 09 09 09 |ectBitsE|rase....|
|00001090| 63 6d 70 2e 77 09 09 23 | 33 32 2c 50 69 78 4d 61 |cmp.w..#|32,PixMa|
|000010a0| 70 2e 70 69 78 65 6c 53 | 69 7a 65 28 53 63 72 65 |p.pixelS|ize(Scre|
|000010b0| 65 6e 50 69 78 4d 61 70 | 29 0d 09 09 09 42 45 51 |enPixMap|)....BEQ|
|000010c0| 09 09 09 40 53 65 74 33 | 32 42 69 74 45 72 61 73 |...@Set3|2BitEras|
|000010d0| 65 57 6f 72 64 0d 09 09 | 09 6d 6f 76 65 2e 6c 09 |eWord...|.move.l.|
|000010e0| 09 23 30 78 37 46 46 46 | 37 46 46 46 2c 43 6f 70 |.#0x7FFF|7FFF,Cop|
|000010f0| 79 57 6f 72 64 09 09 2f | 2f 20 31 36 20 62 69 74 |yWord../|/ 16 bit|
|00001100| 3a 20 4e 6f 20 61 6c 70 | 68 61 20 62 69 74 73 2e |: No alp|ha bits.|
|00001110| 0d 09 09 09 42 52 41 09 | 09 09 40 44 69 72 65 63 |....BRA.|..@Direc|
|00001120| 74 42 69 74 73 45 72 61 | 73 65 4c 6f 6f 70 0d 40 |tBitsEra|seLoop.@|
|00001130| 53 65 74 33 32 42 69 74 | 45 72 61 73 65 57 6f 72 |Set32Bit|EraseWor|
|00001140| 64 0d 09 09 09 6d 6f 76 | 65 2e 6c 09 09 23 30 78 |d....mov|e.l..#0x|
|00001150| 30 30 46 46 46 46 46 46 | 2c 43 6f 70 79 57 6f 72 |00FFFFFF|,CopyWor|
|00001160| 64 09 09 2f 2f 20 33 32 | 20 62 69 74 3a 20 4e 6f |d..// 32| bit: No|
|00001170| 20 61 6c 70 68 61 20 62 | 69 74 73 2e 0d 40 44 69 | alpha b|its..@Di|
|00001180| 72 65 63 74 42 69 74 73 | 45 72 61 73 65 4c 6f 6f |rectBits|EraseLoo|
|00001190| 70 0d 09 09 09 6d 6f 76 | 65 2e 6c 09 09 43 6f 70 |p....mov|e.l..Cop|
|000011a0| 79 57 6f 72 64 2c 28 53 | 63 72 65 65 6e 43 74 72 |yWord,(S|creenCtr|
|000011b0| 29 2b 0d 09 09 09 64 62 | 72 61 09 09 44 30 2c 40 |)+....db|ra..D0,@|
|000011c0| 44 69 72 65 63 74 42 69 | 74 73 45 72 61 73 65 4c |DirectBi|tsEraseL|
|000011d0| 6f 6f 70 0d 40 44 6f 6e | 65 57 45 72 61 73 65 4c |oop.@Don|eWEraseL|
|000011e0| 6f 6f 70 0d 0d 2f 2f 20 | 44 72 61 77 20 77 6f 72 |oop..// |Draw wor|
|000011f0| 64 73 2e 0d 09 09 09 6d | 6f 76 65 2e 6c 09 09 53 |ds.....m|ove.l..S|
|00001200| 63 72 65 65 6e 42 61 73 | 65 2c 53 63 72 65 65 6e |creenBas|e,Screen|
|00001210| 43 74 72 0d 09 09 09 74 | 73 74 2e 62 09 09 44 69 |Ctr....t|st.b..Di|
|00001220| 72 65 63 74 42 69 74 73 | 0d 09 09 09 42 47 45 09 |rectBits|....BGE.|
|00001230| 09 09 40 53 44 42 32 0d | 09 09 09 63 6d 70 2e 77 |..@SDB2.|...cmp.w|
|00001240| 09 09 23 33 32 2c 50 69 | 78 4d 61 70 2e 70 69 78 |..#32,Pi|xMap.pix|
|00001250| 65 6c 53 69 7a 65 28 53 | 63 72 65 65 6e 50 69 78 |elSize(S|creenPix|
|00001260| 4d 61 70 29 0d 09 09 09 | 42 47 45 09 09 09 40 42 |Map)....|BGE...@B|
|00001270| 69 74 33 32 44 72 61 77 | 0d 40 53 44 42 32 09 09 |it32Draw|.@SDB2..|
|00001280| 6d 6f 76 65 2e 6c 09 09 | 56 61 72 73 2d 3e 43 6f |move.l..|Vars->Co|
|00001290| 6c 6f 72 42 69 74 73 2c | 43 6f 70 79 57 6f 72 64 |lorBits,|CopyWord|
|000012a0| 0d 09 09 09 6d 6f 76 65 | 2e 77 09 09 42 61 72 42 |....move|.w..BarB|
|000012b0| 69 74 73 2c 44 30 0d 09 | 09 09 6c 73 72 2e 77 09 |its,D0..|..lsr.w.|
|000012c0| 09 23 33 2b 31 2c 44 30 | 09 09 09 09 09 09 2f 2f |.#3+1,D0|......//|
|000012d0| 20 44 30 2f 38 2f 32 0d | 09 09 09 62 72 61 09 09 | D0/8/2.|...bra..|
|000012e0| 09 40 57 6f 72 64 44 72 | 61 77 54 65 73 74 0d 40 |.@WordDr|awTest.@|
|000012f0| 57 6f 72 64 44 72 61 77 | 4c 6f 6f 70 0d 09 09 09 |WordDraw|Loop....|
|00001300| 6d 6f 76 65 2e 77 09 09 | 43 6f 70 79 57 6f 72 64 |move.w..|CopyWord|
|00001310| 2c 28 53 63 72 65 65 6e | 43 74 72 29 2b 0d 40 57 |,(Screen|Ctr)+.@W|
|00001320| 6f 72 64 44 72 61 77 54 | 65 73 74 0d 09 09 09 64 |ordDrawT|est....d|
|00001330| 62 72 61 09 09 44 30 2c | 40 57 6f 72 64 44 72 61 |bra..D0,|@WordDra|
|00001340| 77 4c 6f 6f 70 0d 0d 2f | 2f 20 44 72 61 77 20 65 |wLoop../|/ Draw e|
|00001350| 78 74 72 61 20 62 69 74 | 73 2e 0d 09 09 09 61 6e |xtra bit|s.....an|
|00001360| 64 2e 77 09 09 23 30 78 | 46 2c 42 61 72 42 69 74 |d.w..#0x|F,BarBit|
|00001370| 73 09 09 09 09 2f 2f 20 | 47 65 74 20 62 69 74 20 |s....// |Get bit |
|00001380| 6f 66 66 73 65 74 20 77 | 69 74 68 69 6e 20 77 6f |offset w|ithin wo|
|00001390| 72 64 2e 0d 09 09 09 42 | 45 51 09 09 09 40 53 6b |rd.....B|EQ...@Sk|
|000013a0| 69 70 31 36 44 72 61 77 | 09 09 09 09 09 2f 2f 20 |ip16Draw|.....// |
|000013b0| 53 6b 69 70 20 69 66 20 | 6e 6f 6e 65 2e 0d 09 09 |Skip if |none....|
|000013c0| 09 61 6e 64 2e 6c 09 09 | 23 30 78 46 46 46 46 30 |.and.l..|#0xFFFF0|
|000013d0| 30 30 30 2c 43 6f 70 79 | 57 6f 72 64 09 09 2f 2f |000,Copy|Word..//|
|000013e0| 20 31 36 2d 62 69 74 20 | 77 69 6c 6c 20 6e 65 76 | 16-bit |will nev|
|000013f0| 65 72 20 67 65 74 20 68 | 65 72 65 2e 0d 09 09 09 |er get h|ere.....|
|00001400| 6c 73 72 2e 6c 09 09 42 | 61 72 42 69 74 73 2c 43 |lsr.l..B|arBits,C|
|00001410| 6f 70 79 57 6f 72 64 09 | 09 09 2f 2f 20 47 65 74 |opyWord.|..// Get|
|00001420| 20 77 6f 72 64 20 77 69 | 74 68 20 72 69 67 68 74 | word wi|th right|
|00001430| 20 62 69 74 73 20 73 65 | 74 2e 0d 09 09 09 6d 6f | bits se|t.....mo|
|00001440| 76 65 2e 77 09 09 43 6f | 70 79 57 6f 72 64 2c 28 |ve.w..Co|pyWord,(|
|00001450| 53 63 72 65 65 6e 43 74 | 72 29 09 09 2f 2f 20 4d |ScreenCt|r)..// M|
|00001460| 6f 76 65 20 69 74 20 6f | 6e 74 6f 20 73 63 72 65 |ove it o|nto scre|
|00001470| 65 6e 2e 0d 0d 2f 2f 20 | 46 69 67 75 72 65 20 64 |en...// |Figure d|
|00001480| 6f 74 20 70 61 74 74 65 | 72 6e 2e 0d 40 53 6b 69 |ot patte|rn..@Ski|
|00001490| 70 31 36 44 72 61 77 09 | 74 73 74 2e 62 09 09 44 |p16Draw.|tst.b..D|
|000014a0| 69 72 65 63 74 42 69 74 | 73 0d 09 09 09 42 4d 49 |irectBit|s....BMI|
|000014b0| 09 09 09 40 46 69 67 75 | 72 65 31 36 42 69 74 44 |...@Figu|re16BitD|
|000014c0| 6f 74 09 09 09 09 2f 2f | 20 49 66 20 64 69 72 65 |ot....//| If dire|
|000014d0| 63 74 2c 20 69 74 20 6d | 75 73 74 20 62 65 20 31 |ct, it m|ust be 1|
|000014e0| 36 2d 62 69 74 2e 0d 09 | 09 09 42 45 51 09 09 09 |6-bit...|..BEQ...|
|000014f0| 40 42 57 42 69 74 44 6f | 74 0d 09 09 09 6d 6f 76 |@BWBitDo|t....mov|
|00001500| 65 2e 77 09 09 50 69 78 | 4d 61 70 2e 70 69 78 65 |e.w..Pix|Map.pixe|
|00001510| 6c 53 69 7a 65 28 53 63 | 72 65 65 6e 50 69 78 4d |lSize(Sc|reenPixM|
|00001520| 61 70 29 2c 44 30 0d 09 | 09 09 6d 6f 76 65 2e 6c |ap),D0..|..move.l|
|00001530| 09 09 23 30 78 46 46 30 | 30 30 30 30 30 2c 43 6f |..#0xFF0|00000,Co|
|00001540| 70 79 57 6f 72 64 09 09 | 2f 2f 20 57 65 20 77 6f |pyWord..|// We wo|
|00001550| 6e 27 74 20 68 61 76 65 | 20 61 6e 79 74 68 69 6e |n't have| anythin|
|00001560| 67 20 6d 6f 72 65 20 74 | 68 61 6e 20 38 20 62 69 |g more t|han 8 bi|
|00001570| 74 73 20 6e 6f 77 2e 0d | 09 09 09 6e 65 67 2e 62 |ts now..|...neg.b|
|00001580| 09 09 44 30 0d 09 09 09 | 61 64 64 71 2e 62 09 09 |..D0....|addq.b..|
|00001590| 23 38 2c 44 30 0d 09 09 | 09 6c 73 6c 2e 6c 09 09 |#8,D0...|.lsl.l..|
|000015a0| 44 30 2c 43 6f 70 79 57 | 6f 72 64 0d 09 09 09 62 |D0,CopyW|ord....b|
|000015b0| 72 61 09 09 09 40 44 6f | 6e 74 44 72 61 77 42 69 |ra...@Do|ntDrawBi|
|000015c0| 74 73 0d 40 42 57 42 69 | 74 44 6f 74 09 6d 6f 76 |ts.@BWBi|tDot.mov|
|000015d0| 65 2e 6c 09 09 23 30 78 | 38 30 30 30 30 30 30 30 |e.l..#0x|80000000|
|000015e0| 2c 43 6f 70 79 57 6f 72 | 64 0d 09 09 09 62 72 61 |,CopyWor|d....bra|
|000015f0| 09 09 09 40 44 6f 6e 74 | 44 72 61 77 42 69 74 73 |...@Dont|DrawBits|
|00001600| 0d 40 46 69 67 75 72 65 | 31 36 42 69 74 44 6f 74 |.@Figure|16BitDot|
|00001610| 0d 09 09 09 6d 6f 76 65 | 2e 6c 09 09 23 30 78 37 |....move|.l..#0x7|
|00001620| 46 46 46 30 30 30 30 2c | 43 6f 70 79 57 6f 72 64 |FFF0000,|CopyWord|
|00001630| 09 09 2f 2f 20 57 65 20 | 64 6f 6e 27 74 20 77 61 |..// We |don't wa|
|00001640| 6e 74 20 61 6c 70 68 61 | 20 63 68 61 6e 6e 65 6c |nt alpha| channel|
|00001650| 20 62 69 74 20 73 65 74 | 2e 0d 09 09 09 62 72 61 | bit set|.....bra|
|00001660| 09 09 09 40 44 6f 6e 74 | 44 72 61 77 42 69 74 73 |...@Dont|DrawBits|
|00001670| 0d 0d 2f 2f 20 44 72 61 | 77 20 62 69 74 73 20 69 |..// Dra|w bits i|
|00001680| 6e 20 33 32 2d 62 69 74 | 20 6d 6f 64 65 2e 0d 40 |n 32-bit| mode..@|
|00001690| 42 69 74 33 32 44 72 61 | 77 09 6d 6f 76 65 2e 6c |Bit32Dra|w.move.l|
|000016a0| 09 09 56 61 72 73 2d 3e | 43 6f 6c 6f 72 42 69 74 |..Vars->|ColorBit|
|000016b0| 73 2c 43 6f 70 79 57 6f | 72 64 0d 09 09 09 6d 6f |s,CopyWo|rd....mo|
|000016c0| 76 65 2e 77 09 09 42 61 | 72 42 69 74 73 2c 44 30 |ve.w..Ba|rBits,D0|
|000016d0| 0d 09 09 09 6c 73 72 2e | 77 09 09 23 33 2b 32 2c |....lsr.|w..#3+2,|
|000016e0| 44 30 09 09 09 09 09 09 | 2f 2f 20 44 30 2f 38 2f |D0......|// D0/8/|
|000016f0| 34 0d 09 09 09 62 72 61 | 09 09 09 40 4c 6f 6e 67 |4....bra|...@Long|
|00001700| 44 72 61 77 54 65 73 74 | 0d 40 4c 6f 6e 67 44 72 |DrawTest|.@LongDr|
|00001710| 61 77 4c 6f 6f 70 0d 09 | 09 09 6d 6f 76 65 2e 6c |awLoop..|..move.l|
|00001720| 09 09 43 6f 70 79 57 6f | 72 64 2c 28 53 63 72 65 |..CopyWo|rd,(Scre|
|00001730| 65 6e 43 74 72 29 2b 0d | 40 4c 6f 6e 67 44 72 61 |enCtr)+.|@LongDra|
|00001740| 77 54 65 73 74 0d 09 09 | 09 64 62 72 61 09 09 44 |wTest...|.dbra..D|
|00001750| 30 2c 40 4c 6f 6e 67 44 | 72 61 77 4c 6f 6f 70 0d |0,@LongD|rawLoop.|
|00001760| 0d 2f 2f 20 46 69 67 75 | 72 65 20 64 6f 74 20 70 |.// Figu|re dot p|
|00001770| 61 74 74 65 72 6e 20 69 | 6e 20 33 32 2d 62 69 74 |attern i|n 32-bit|
|00001780| 20 6d 6f 64 65 2e 0d 09 | 09 09 6d 6f 76 65 2e 6c | mode...|..move.l|
|00001790| 09 09 23 30 78 30 30 46 | 46 46 46 46 46 2c 43 6f |..#0x00F|FFFFF,Co|
|000017a0| 70 79 57 6f 72 64 09 09 | 2f 2f 20 57 65 20 64 6f |pyWord..|// We do|
|000017b0| 6e 27 74 20 77 61 6e 74 | 20 61 6c 70 68 61 20 63 |n't want| alpha c|
|000017c0| 68 61 6e 6e 65 6c 20 73 | 65 74 2e 0d 0d 2f 2f 20 |hannel s|et...// |
|000017d0| 44 72 61 77 20 73 63 61 | 6c 65 20 64 6f 74 73 2e |Draw sca|le dots.|
|000017e0| 0d 40 44 6f 6e 74 44 72 | 61 77 42 69 74 73 0d 09 |.@DontDr|awBits..|
|000017f0| 09 09 6d 6f 76 65 2e 6c | 09 09 56 61 72 73 2d 3e |..move.l|..Vars->|
|00001800| 52 53 52 43 2e 55 6e 69 | 74 53 69 7a 65 2c 44 30 |RSRC.Uni|tSize,D0|
|00001810| 0d 09 09 09 6c 73 72 2e | 6c 09 09 23 53 68 69 66 |....lsr.|l..#Shif|
|00001820| 74 41 6d 74 2c 44 30 0d | 09 09 09 6d 75 6c 75 09 |tAmt,D0.|...mulu.|
|00001830| 09 53 63 72 65 65 6e 57 | 69 64 74 68 2c 44 30 0d |.ScreenW|idth,D0.|
|00001840| 09 09 09 6c 73 6c 2e 6c | 09 09 23 35 2c 44 30 0d |...lsl.l|..#5,D0.|
|00001850| 09 09 09 64 69 76 75 09 | 09 43 53 63 72 61 74 63 |...divu.|.CScratc|
|00001860| 68 31 2c 44 30 0d 09 09 | 09 63 6c 72 2e 6c 09 09 |h1,D0...|.clr.l..|
|00001870| 44 6f 74 42 69 74 73 0d | 09 09 09 6d 6f 76 65 2e |DotBits.|...move.|
|00001880| 77 09 09 44 30 2c 44 6f | 74 42 69 74 73 0d 0d 09 |w..D0,Do|tBits...|
|00001890| 09 09 63 6c 72 2e 6c 09 | 09 43 75 72 44 6f 74 50 |..clr.l.|.CurDotP|
|000018a0| 6f 73 0d 40 44 6f 74 44 | 72 61 77 4c 6f 6f 70 0d |os.@DotD|rawLoop.|
|000018b0| 09 09 09 61 64 64 2e 6c | 09 09 44 6f 74 42 69 74 |...add.l|..DotBit|
|000018c0| 73 2c 43 75 72 44 6f 74 | 50 6f 73 0d 09 09 09 6d |s,CurDot|Pos....m|
|000018d0| 6f 76 65 2e 6c 09 09 43 | 75 72 44 6f 74 50 6f 73 |ove.l..C|urDotPos|
|000018e0| 2c 43 75 72 44 6f 74 42 | 69 74 73 0d 09 09 09 6c |,CurDotB|its....l|
|000018f0| 73 72 2e 6c 09 09 23 35 | 2c 43 75 72 44 6f 74 42 |sr.l..#5|,CurDotB|
|00001900| 69 74 73 0d 09 09 09 42 | 45 51 09 09 09 40 44 6f |its....B|EQ...@Do|
|00001910| 6e 65 57 44 6f 74 73 09 | 09 09 09 09 2f 2f 20 53 |neWDots.|....// S|
|00001920| 6b 69 70 20 69 66 20 7a | 65 72 6f 2e 0d 09 09 09 |kip if z|ero.....|
|00001930| 74 73 74 2e 62 09 09 44 | 69 72 65 63 74 42 69 74 |tst.b..D|irectBit|
|00001940| 73 0d 09 09 09 42 45 51 | 09 09 09 40 53 6b 69 70 |s....BEQ|...@Skip|
|00001950| 44 6f 74 50 69 78 65 6c | 4d 75 6c 75 0d 09 09 09 |DotPixel|Mulu....|
|00001960| 6d 75 6c 75 09 09 53 63 | 72 65 65 6e 50 69 78 4d |mulu..Sc|reenPixM|
|00001970| 61 70 2d 3e 70 69 78 65 | 6c 53 69 7a 65 2c 43 75 |ap->pixe|lSize,Cu|
|00001980| 72 44 6f 74 42 69 74 73 | 0d 40 53 6b 69 70 44 6f |rDotBits|.@SkipDo|
|00001990| 74 50 69 78 65 6c 4d 75 | 6c 75 0d 09 09 09 6d 6f |tPixelMu|lu....mo|
|000019a0| 76 65 2e 6c 09 09 43 75 | 72 44 6f 74 42 69 74 73 |ve.l..Cu|rDotBits|
|000019b0| 2c 44 30 0d 09 09 09 6c | 73 72 2e 6c 09 09 23 33 |,D0....l|sr.l..#3|
|000019c0| 2b 32 2c 44 30 09 09 09 | 09 09 09 2f 2f 20 44 30 |+2,D0...|...// D0|
|000019d0| 2f 38 2f 34 0d 09 09 09 | 6c 73 6c 2e 6c 09 09 23 |/8/4....|lsl.l..#|
|000019e0| 32 2c 44 30 0d 09 09 09 | 63 6d 70 2e 6c 09 09 53 |2,D0....|cmp.l..S|
|000019f0| 63 72 65 65 6e 52 6f 77 | 42 79 74 65 73 2c 44 30 |creenRow|Bytes,D0|
|00001a00| 0d 09 09 09 42 47 45 09 | 09 09 40 44 6f 6e 65 57 |....BGE.|..@DoneW|
|00001a10| 44 6f 74 73 0d 09 09 09 | 6d 6f 76 65 2e 6c 09 09 |Dots....|move.l..|
|00001a20| 44 30 2c 53 63 72 65 65 | 6e 43 74 72 0d 09 09 09 |D0,Scree|nCtr....|
|00001a30| 61 6e 64 2e 62 09 09 23 | 30 78 31 46 2c 43 75 72 |and.b..#|0x1F,Cur|
|00001a40| 44 6f 74 42 69 74 73 0d | 09 09 09 6d 6f 76 65 2e |DotBits.|...move.|
|00001a50| 6c 09 09 43 6f 70 79 57 | 6f 72 64 2c 44 30 0d 09 |l..CopyW|ord,D0..|
|00001a60| 09 09 6c 73 72 2e 6c 09 | 09 43 75 72 44 6f 74 42 |..lsr.l.|.CurDotB|
|00001a70| 69 74 73 2c 44 30 0d 09 | 09 09 74 73 74 2e 62 09 |its,D0..|..tst.b.|
|00001a80| 09 56 61 72 73 2d 3e 42 | 6c 61 63 6b 43 6f 6c 6f |.Vars->B|lackColo|
|00001a90| 72 0d 09 09 09 42 4e 45 | 09 09 09 40 49 6e 76 65 |r....BNE|...@Inve|
|00001aa0| 72 74 44 6f 74 44 72 61 | 77 0d 09 09 09 74 73 74 |rtDotDra|w....tst|
|00001ab0| 2e 62 09 09 44 69 72 65 | 63 74 42 69 74 73 0d 09 |.b..Dire|ctBits..|
|00001ac0| 09 09 42 4d 49 09 09 09 | 40 44 69 72 65 63 74 44 |..BMI...|@DirectD|
|00001ad0| 6f 74 44 72 61 77 0d 40 | 49 6e 64 65 78 65 64 44 |otDraw.@|IndexedD|
|00001ae0| 6f 74 44 72 61 77 0d 09 | 09 09 6f 72 2e 6c 09 09 |otDraw..|..or.l..|
|00001af0| 44 30 2c 28 30 2c 53 63 | 72 65 65 6e 42 61 73 65 |D0,(0,Sc|reenBase|
|00001b00| 2c 53 63 72 65 65 6e 43 | 74 72 2e 6c 29 0d 09 09 |,ScreenC|tr.l)...|
|00001b10| 09 62 72 61 09 09 09 40 | 44 6f 74 44 72 61 77 4c |.bra...@|DotDrawL|
|00001b20| 6f 6f 70 0d 40 44 69 72 | 65 63 74 44 6f 74 44 72 |oop.@Dir|ectDotDr|
|00001b30| 61 77 0d 09 09 09 6e 6f | 74 2e 6c 09 09 44 30 09 |aw....no|t.l..D0.|
|00001b40| 09 09 09 09 09 09 2f 2f | 20 46 6f 72 6d 20 6d 61 |......//| Form ma|
|00001b50| 73 6b 2e 0d 09 09 09 61 | 6e 64 2e 6c 09 09 44 30 |sk.....a|nd.l..D0|
|00001b60| 2c 28 30 2c 53 63 72 65 | 65 6e 42 61 73 65 2c 53 |,(0,Scre|enBase,S|
|00001b70| 63 72 65 65 6e 43 74 72 | 2e 6c 29 0d 09 09 09 62 |creenCtr|.l)....b|
|00001b80| 72 61 09 09 09 40 44 6f | 74 44 72 61 77 4c 6f 6f |ra...@Do|tDrawLoo|
|00001b90| 70 0d 40 49 6e 76 65 72 | 74 44 6f 74 44 72 61 77 |p.@Inver|tDotDraw|
|00001ba0| 0d 09 09 09 65 6f 72 2e | 6c 09 09 44 30 2c 28 30 |....eor.|l..D0,(0|
|00001bb0| 2c 53 63 72 65 65 6e 42 | 61 73 65 2c 53 63 72 65 |,ScreenB|ase,Scre|
|00001bc0| 65 6e 43 74 72 2e 6c 29 | 0d 09 09 09 62 72 61 09 |enCtr.l)|....bra.|
|00001bd0| 09 09 40 44 6f 74 44 72 | 61 77 4c 6f 6f 70 0d 0d |..@DotDr|awLoop..|
|00001be0| 2f 2f 20 53 77 69 74 63 | 68 20 62 61 63 6b 20 74 |// Switc|h back t|
|00001bf0| 6f 20 70 72 65 76 69 6f | 75 73 20 61 64 64 72 65 |o previo|us addre|
|00001c00| 73 73 69 6e 67 20 6d 6f | 64 65 2e 0d 40 44 6f 6e |ssing mo|de..@Don|
|00001c10| 65 57 44 6f 74 73 09 74 | 73 74 2e 62 09 09 56 61 |eWDots.t|st.b..Va|
|00001c20| 72 73 2d 3e 55 73 65 33 | 32 42 69 74 41 64 64 72 |rs->Use3|2BitAddr|
|00001c30| 0d 09 09 09 42 45 51 09 | 09 09 40 44 6f 6e 74 53 |....BEQ.|..@DontS|
|00001c40| 77 61 70 32 0d 09 09 09 | 6d 6f 76 65 2e 62 09 28 |wap2....|move.b.(|
|00001c50| 73 70 29 2b 2c 44 30 0d | 09 09 09 5f 53 77 61 70 |sp)+,D0.|..._Swap|
|00001c60| 4d 4d 55 4d 6f 64 65 0d | 40 44 6f 6e 74 53 77 61 |MMUMode.|@DontSwa|
|00001c70| 70 32 0d 0d 40 53 6b 69 | 70 56 42 4c 09 6d 6f 76 |p2..@Ski|pVBL.mov|
|00001c80| 65 6d 2e 6c 09 09 28 73 | 70 29 2b 2c 44 34 2d 44 |em.l..(s|p)+,D4-D|
|00001c90| 37 2f 41 34 2d 41 35 0d | 09 09 09 72 74 73 0d 0d |7/A4-A5.|...rts..|
|00001ca0| 40 52 65 64 6f 56 42 4c | 09 6d 6f 76 65 2e 77 09 |@RedoVBL|.move.w.|
|00001cb0| 09 23 31 2c 56 61 72 73 | 2d 3e 56 42 4c 52 65 63 |.#1,Vars|->VBLRec|
|00001cc0| 2e 76 62 6c 43 6f 75 6e | 74 09 2f 2f 20 47 6f 20 |.vblCoun|t.// Go |
|00001cd0| 61 67 61 69 6e 20 69 6e | 20 31 20 74 69 63 6b 2e |again in| 1 tick.|
|00001ce0| 0d 09 09 09 62 72 61 09 | 09 09 40 53 6b 69 70 56 |....bra.|..@SkipV|
|00001cf0| 42 4c 0d 09 0d 09 09 7d | 0d 09 7d 0d 0d 0d 0d 09 |BL.....}|..}.....|
|00001d00| 7b 20 20 2f 2f 20 76 6f | 69 64 20 55 70 64 61 74 |{  // vo|id Updat|
|00001d10| 65 43 6f 6c 6f 72 42 69 | 74 73 28 29 0d 09 09 72 |eColorBi|ts()...r|
|00001d20| 65 67 69 73 74 65 72 20 | 4d 65 6d 56 61 72 73 09 |egister |MemVars.|
|00001d30| 2a 56 61 72 73 3b 0d 09 | 09 72 65 67 69 73 74 65 |*Vars;..|.registe|
|00001d40| 72 20 50 69 78 4d 61 70 | 50 74 72 09 53 63 72 65 |r PixMap|Ptr.Scre|
|00001d50| 65 6e 50 69 78 4d 61 70 | 3b 0d 09 09 72 65 67 69 |enPixMap|;...regi|
|00001d60| 73 74 65 72 20 6c 6f 6e | 67 09 09 53 63 72 61 74 |ster lon|g..Scrat|
|00001d70| 63 68 2c 0d 09 09 09 09 | 09 09 09 4d 61 73 6b 2c |ch,.....|...Mask,|
|00001d80| 0d 09 09 09 09 09 09 09 | 53 68 69 66 74 53 69 7a |........|ShiftSiz|
|00001d90| 65 3b 0d 09 0d 09 09 61 | 73 6d 20 7b 0d 40 55 70 |e;.....a|sm {.@Up|
|00001da0| 64 61 74 65 43 6f 6c 6f | 72 42 69 74 73 0d 09 09 |dateColo|rBits...|
|00001db0| 09 6d 6f 76 65 6d 2e 6c | 09 09 56 61 72 73 2f 53 |.movem.l|..Vars/S|
|00001dc0| 63 72 65 65 6e 50 69 78 | 4d 61 70 2f 53 63 72 61 |creenPix|Map/Scra|
|00001dd0| 74 63 68 2f 4d 61 73 6b | 2f 53 68 69 66 74 53 69 |tch/Mask|/ShiftSi|
|00001de0| 7a 65 2c 2d 28 73 70 29 | 0d 09 09 09 6d 6f 76 65 |ze,-(sp)|....move|
|00001df0| 2e 6c 09 09 40 6d 79 56 | 61 72 73 2c 56 61 72 73 |.l..@myV|ars,Vars|
|00001e00| 0d 09 09 09 74 73 74 09 | 09 09 56 61 72 73 2d 3e |....tst.|..Vars->|
|00001e10| 52 53 52 43 2e 56 42 4c | 41 63 74 69 76 65 0d 09 |RSRC.VBL|Active..|
|00001e20| 09 09 42 45 51 09 09 09 | 40 53 6b 69 70 55 43 42 |..BEQ...|@SkipUCB|
|00001e30| 0d 09 09 09 74 73 74 2e | 62 09 09 56 61 72 73 2d |....tst.|b..Vars-|
|00001e40| 3e 43 6f 6c 6f 72 41 76 | 61 69 6c 0d 09 09 09 42 |>ColorAv|ail....B|
|00001e50| 4e 45 09 09 09 40 43 6f | 6c 6f 72 55 70 64 61 74 |NE...@Co|lorUpdat|
|00001e60| 65 0d 09 09 09 6d 6f 76 | 65 2e 6c 09 09 23 30 78 |e....mov|e.l..#0x|
|00001e70| 46 46 46 46 46 46 46 46 | 2c 56 61 72 73 2d 3e 43 |FFFFFFFF|,Vars->C|
|00001e80| 6f 6c 6f 72 42 69 74 73 | 0d 09 09 09 53 54 09 09 |olorBits|....ST..|
|00001e90| 09 56 61 72 73 2d 3e 42 | 6c 61 63 6b 43 6f 6c 6f |.Vars->B|lackColo|
|00001ea0| 72 09 09 09 2f 2f 20 53 | 65 74 73 20 69 74 20 6e |r...// S|ets it n|
|00001eb0| 6f 20 6d 61 74 74 65 72 | 20 77 68 61 74 2e 0d 09 |o matter| what...|
|00001ec0| 09 09 62 72 61 09 09 09 | 40 53 6b 69 70 55 43 42 |..bra...|@SkipUCB|
|00001ed0| 0d 0d 40 43 6f 6c 6f 72 | 55 70 64 61 74 65 0d 09 |..@Color|Update..|
|00001ee0| 09 09 6d 6f 76 65 2e 6c | 09 09 56 61 72 73 2d 3e |..move.l|..Vars->|
|00001ef0| 4d 61 69 6e 50 4d 61 70 | 2c 53 63 72 65 65 6e 50 |MainPMap|,ScreenP|
|00001f00| 69 78 4d 61 70 0d 09 09 | 09 6d 6f 76 65 2e 77 09 |ixMap...|.move.w.|
|00001f10| 09 53 63 72 65 65 6e 50 | 69 78 4d 61 70 2d 3e 70 |.ScreenP|ixMap->p|
|00001f20| 69 78 65 6c 53 69 7a 65 | 2c 44 30 0d 09 09 09 63 |ixelSize|,D0....c|
|00001f30| 6d 70 2e 77 09 09 56 61 | 72 73 2d 3e 43 6f 6c 6f |mp.w..Va|rs->Colo|
|00001f40| 72 53 69 7a 65 2c 44 30 | 0d 09 09 09 53 4e 45 09 |rSize,D0|....SNE.|
|00001f50| 09 09 53 63 72 61 74 63 | 68 09 09 09 09 09 09 2f |..Scratc|h....../|
|00001f60| 2f 20 53 65 74 20 69 66 | 20 77 65 20 48 41 56 45 |/ Set if| we HAVE|
|00001f70| 20 74 6f 20 75 70 64 61 | 74 65 2e 0d 09 09 09 63 | to upda|te.....c|
|00001f80| 6d 70 2e 77 09 09 23 52 | 47 42 44 69 72 65 63 74 |mp.w..#R|GBDirect|
|00001f90| 2c 53 63 72 65 65 6e 50 | 69 78 4d 61 70 2d 3e 70 |,ScreenP|ixMap->p|
|00001fa0| 69 78 65 6c 54 79 70 65 | 0d 09 09 09 42 45 51 09 |ixelType|....BEQ.|
|00001fb0| 09 09 40 55 70 64 61 74 | 65 44 69 72 65 63 74 43 |..@Updat|eDirectC|
|00001fc0| 42 0d 09 09 09 63 6d 70 | 2e 77 09 09 23 31 2c 53 |B....cmp|.w..#1,S|
|00001fd0| 63 72 65 65 6e 50 69 78 | 4d 61 70 2d 3e 70 69 78 |creenPix|Map->pix|
|00001fe0| 65 6c 53 69 7a 65 0d 09 | 09 09 42 45 51 09 09 09 |elSize..|..BEQ...|
|00001ff0| 40 43 6f 6c 6f 72 4e 6f | 74 46 6f 75 6e 64 0d 2f |@ColorNo|tFound./|
|00002000| 2f 09 09 09 63 6d 70 2e | 77 09 09 23 32 2c 53 63 |/...cmp.|w..#2,Sc|
|00002010| 72 65 65 6e 50 69 78 4d | 61 70 2d 3e 70 69 78 65 |reenPixM|ap->pixe|
|00002020| 6c 53 69 7a 65 09 2f 2f | 20 49 6e 20 32 2d 62 69 |lSize.//| In 2-bi|
|00002030| 74 2c 20 75 73 65 20 68 | 69 6c 69 74 65 20 63 6f |t, use h|ilite co|
|00002040| 6c 6f 72 2e 0d 2f 2f 09 | 09 09 42 4e 45 09 09 09 |lor..//.|..BNE...|
|00002050| 40 4e 6f 74 32 42 69 74 | 0d 2f 2f 09 09 09 6d 6f |@Not2Bit|.//...mo|
|00002060| 76 65 2e 6c 09 09 23 30 | 78 41 41 41 41 41 41 41 |ve.l..#0|xAAAAAAA|
|00002070| 41 2c 43 6f 6c 6f 72 42 | 69 74 73 0d 2f 2f 09 09 |A,ColorB|its.//..|
|00002080| 09 63 6c 72 2e 62 09 09 | 42 6c 61 63 6b 43 6f 6c |.clr.b..|BlackCol|
|00002090| 6f 72 0d 2f 2f 09 09 09 | 62 72 61 09 09 09 43 6f |or.//...|bra...Co|
|000020a0| 70 79 49 6e 64 65 78 65 | 64 53 74 75 66 66 0d 40 |pyIndexe|dStuff.@|
|000020b0| 4e 6f 74 32 42 69 74 09 | 73 75 62 71 2e 6c 09 09 |Not2Bit.|subq.l..|
|000020c0| 23 34 2c 73 70 09 09 09 | 09 09 09 2f 2f 20 52 65 |#4,sp...|...// Re|
|000020d0| 73 65 72 76 65 20 73 70 | 61 63 65 20 66 6f 72 20 |serve sp|ace for |
|000020e0| 72 65 73 75 6c 74 2e 0d | 09 09 09 70 65 61 09 09 |result..|...pea..|
|000020f0| 09 56 61 72 73 2d 3e 52 | 53 52 43 2e 42 61 72 43 |.Vars->R|SRC.BarC|
|00002100| 6f 6c 6f 72 0d 09 09 09 | 5f 43 6f 6c 6f 72 32 49 |olor....|_Color2I|
|00002110| 6e 64 65 78 0d 09 09 09 | 6d 6f 76 65 2e 6c 09 09 |ndex....|move.l..|
|00002120| 28 73 70 29 2b 2c 44 31 | 09 09 09 09 09 2f 2f 20 |(sp)+,D1|.....// |
|00002130| 52 65 73 75 6c 74 20 69 | 6e 20 44 31 2e 0d 09 09 |Result i|n D1....|
|00002140| 09 42 45 51 09 09 09 40 | 43 6f 6c 6f 72 4e 6f 74 |.BEQ...@|ColorNot|
|00002150| 46 6f 75 6e 64 09 09 09 | 09 2f 2f 20 49 66 20 44 |Found...|.// If D|
|00002160| 31 20 69 73 20 7a 65 72 | 6f 2c 20 62 61 72 20 77 |1 is zer|o, bar w|
|00002170| 69 6c 6c 20 62 65 20 77 | 68 69 74 65 2e 20 20 4d |ill be w|hite.  M|
|00002180| 61 6b 65 20 69 74 20 62 | 6c 61 63 6b 2e 0d 09 09 |ake it b|lack....|
|00002190| 09 74 73 74 2e 62 09 09 | 44 33 0d 09 09 09 42 4e |.tst.b..|D3....BN|
|000021a0| 45 09 09 09 40 53 6b 69 | 70 49 6e 64 65 78 43 68 |E...@Ski|pIndexCh|
|000021b0| 65 63 6b 0d 09 09 09 63 | 6d 70 2e 77 09 09 56 61 |eck....c|mp.w..Va|
|000021c0| 72 73 2d 3e 43 6f 6c 6f | 72 49 6e 64 65 78 2c 44 |rs->Colo|rIndex,D|
|000021d0| 31 0d 09 09 09 42 45 51 | 09 09 09 40 53 6b 69 70 |1....BEQ|...@Skip|
|000021e0| 55 43 42 09 09 09 09 09 | 2f 2f 20 44 6f 6e 27 74 |UCB.....|// Don't|
|000021f0| 20 64 6f 20 61 6e 79 74 | 68 69 6e 67 20 69 66 20 | do anyt|hing if |
|00002200| 69 74 20 68 61 73 6e 27 | 74 20 63 68 61 6e 67 65 |it hasn'|t change|
|00002210| 64 2e 0d 40 53 6b 69 70 | 49 6e 64 65 78 43 68 65 |d..@Skip|IndexChe|
|00002220| 63 6b 0d 09 09 09 6d 6f | 76 65 2e 6c 09 09 44 31 |ck....mo|ve.l..D1|
|00002230| 2c 44 30 09 09 09 09 09 | 09 2f 2f 20 44 30 20 77 |,D0.....|.// D0 w|
|00002240| 69 6c 6c 20 68 6f 6c 64 | 20 6f 75 72 20 6e 65 77 |ill hold| our new|
|00002250| 20 43 6f 6c 6f 72 42 69 | 74 73 2e 0d 09 09 09 6d | ColorBi|ts.....m|
|00002260| 6f 76 65 2e 6c 09 09 23 | 33 32 2c 44 32 09 09 09 |ove.l..#|32,D2...|
|00002270| 09 09 09 2f 2f 20 4e 75 | 6d 62 65 72 20 6f 66 20 |...// Nu|mber of |
|00002280| 62 69 74 73 20 74 6f 20 | 64 65 61 6c 20 77 69 74 |bits to |deal wit|
|00002290| 68 2e 0d 09 09 09 6d 6f | 76 65 2e 77 09 09 53 63 |h.....mo|ve.w..Sc|
|000022a0| 72 65 65 6e 50 69 78 4d | 61 70 2d 3e 70 69 78 65 |reenPixM|ap->pixe|
|000022b0| 6c 53 69 7a 65 2c 53 63 | 72 61 74 63 68 0d 09 09 |lSize,Sc|ratch...|
|000022c0| 09 64 69 76 75 09 09 53 | 63 72 61 74 63 68 2c 44 |.divu..S|cratch,D|
|000022d0| 32 09 09 09 09 09 2f 2f | 20 43 6f 6e 76 65 72 74 |2.....//| Convert|
|000022e0| 20 44 32 20 74 6f 20 23 | 20 6f 66 20 63 6f 70 69 | D2 to #| of copi|
|000022f0| 65 73 20 6e 65 65 64 65 | 64 2e 0d 09 09 09 73 75 |es neede|d.....su|
|00002300| 62 71 2e 77 09 09 23 31 | 2b 31 2c 44 32 09 09 09 |bq.w..#1|+1,D2...|
|00002310| 09 09 09 2f 2f 20 4f 6e | 65 20 68 61 73 20 61 6c |...// On|e has al|
|00002320| 72 65 61 64 79 20 62 65 | 65 6e 20 64 6f 6e 65 2c |ready be|en done,|
|00002330| 20 61 6e 6f 74 68 65 72 | 20 66 6f 72 20 74 68 65 | another| for the|
|00002340| 20 6c 6f 6f 70 2e 0d 40 | 4d 61 6b 65 43 4c 55 54 | loop..@|MakeCLUT|
|00002350| 42 69 74 73 4c 6f 6f 70 | 0d 09 09 09 4c 53 4c 2e |BitsLoop|....LSL.|
|00002360| 6c 09 09 53 63 72 61 74 | 63 68 2c 44 30 09 09 09 |l..Scrat|ch,D0...|
|00002370| 09 09 2f 2f 20 53 68 69 | 66 74 20 69 6e 74 6f 20 |..// Shi|ft into |
|00002380| 70 6f 73 69 74 69 6f 6e | 2e 0d 09 09 09 6f 72 2e |position|.....or.|
|00002390| 6c 09 09 44 31 2c 44 30 | 09 09 09 09 09 09 2f 2f |l..D1,D0|......//|
|000023a0| 20 41 64 64 20 61 6e 6f | 74 68 65 72 20 63 6f 70 | Add ano|ther cop|
|000023b0| 79 2e 0d 09 09 09 64 62 | 72 61 09 09 44 32 2c 40 |y.....db|ra..D2,@|
|000023c0| 4d 61 6b 65 43 4c 55 54 | 42 69 74 73 4c 6f 6f 70 |MakeCLUT|BitsLoop|
|000023d0| 0d 09 09 09 6d 6f 76 65 | 2e 6c 09 09 44 30 2c 56 |....move|.l..D0,V|
|000023e0| 61 72 73 2d 3e 43 6f 6c | 6f 72 42 69 74 73 0d 09 |ars->Col|orBits..|
|000023f0| 09 09 63 6d 70 2e 62 09 | 09 23 30 78 46 46 2c 44 |..cmp.b.|.#0xFF,D|
|00002400| 30 09 09 09 09 09 2f 2f | 20 49 66 20 6c 6f 20 62 |0.....//| If lo b|
|00002410| 79 74 65 20 69 73 20 24 | 46 46 2c 20 74 68 65 6e |yte is $|FF, then|
|00002420| 20 77 68 6f 6c 65 20 74 | 68 69 6e 67 20 69 73 2e | whole t|hing is.|
|00002430| 0d 09 09 09 53 45 51 09 | 09 09 56 61 72 73 2d 3e |....SEQ.|..Vars->|
|00002440| 42 6c 61 63 6b 43 6f 6c | 6f 72 0d 40 43 6f 70 79 |BlackCol|or.@Copy|
|00002450| 49 6e 64 65 78 65 64 53 | 74 75 66 66 0d 09 09 09 |IndexedS|tuff....|
|00002460| 6d 6f 76 65 2e 77 09 09 | 53 63 72 65 65 6e 50 69 |move.w..|ScreenPi|
|00002470| 78 4d 61 70 2d 3e 70 69 | 78 65 6c 53 69 7a 65 2c |xMap->pi|xelSize,|
|00002480| 56 61 72 73 2d 3e 43 6f | 6c 6f 72 53 69 7a 65 0d |Vars->Co|lorSize.|
|00002490| 09 09 09 6d 6f 76 65 2e | 77 09 09 44 31 2c 56 61 |...move.|w..D1,Va|
|000024a0| 72 73 2d 3e 43 6f 6c 6f | 72 49 6e 64 65 78 0d 0d |rs->Colo|rIndex..|
|000024b0| 40 53 6b 69 70 55 43 42 | 09 6d 6f 76 65 6d 2e 6c |@SkipUCB|.movem.l|
|000024c0| 09 09 28 73 70 29 2b 2c | 56 61 72 73 2f 53 63 72 |..(sp)+,|Vars/Scr|
|000024d0| 65 65 6e 50 69 78 4d 61 | 70 2f 53 63 72 61 74 63 |eenPixMa|p/Scratc|
|000024e0| 68 2f 4d 61 73 6b 2f 53 | 68 69 66 74 53 69 7a 65 |h/Mask/S|hiftSize|
|000024f0| 0d 09 09 09 72 74 73 0d | 0d 40 43 6f 6c 6f 72 4e |....rts.|.@ColorN|
|00002500| 6f 74 46 6f 75 6e 64 0d | 09 09 09 6d 6f 76 65 2e |otFound.|...move.|
|00002510| 6c 09 09 23 30 78 46 46 | 46 46 46 46 46 46 2c 56 |l..#0xFF|FFFFFF,V|
|00002520| 61 72 73 2d 3e 43 6f 6c | 6f 72 42 69 74 73 09 2f |ars->Col|orBits./|
|00002530| 2f 20 55 73 65 20 62 6c | 61 63 6b 20 69 66 20 63 |/ Use bl|ack if c|
|00002540| 6f 6c 6f 72 20 6e 6f 74 | 20 66 6f 75 6e 64 2e 0d |olor not| found..|
|00002550| 09 09 09 53 54 09 09 09 | 56 61 72 73 2d 3e 42 6c |...ST...|Vars->Bl|
|00002560| 61 63 6b 43 6f 6c 6f 72 | 09 09 09 2f 2f 20 53 65 |ackColor|...// Se|
|00002570| 74 73 20 69 74 20 6e 6f | 20 6d 61 74 74 65 72 20 |ts it no| matter |
|00002580| 77 68 61 74 2e 0d 09 09 | 09 62 72 61 09 09 09 40 |what....|.bra...@|
|00002590| 43 6f 70 79 49 6e 64 65 | 78 65 64 53 74 75 66 66 |CopyInde|xedStuff|
|000025a0| 0d 0d 40 55 70 64 61 74 | 65 44 69 72 65 63 74 43 |..@Updat|eDirectC|
|000025b0| 42 0d 09 09 09 74 73 74 | 2e 62 09 09 53 63 72 61 |B....tst|.b..Scra|
|000025c0| 74 63 68 0d 09 09 09 42 | 45 51 09 09 09 40 53 6b |tch....B|EQ...@Sk|
|000025d0| 69 70 55 43 42 09 09 09 | 09 09 2f 2f 20 49 66 20 |ipUCB...|..// If |
|000025e0| 77 65 20 77 65 72 65 20 | 69 6e 20 73 61 6d 65 20 |we were |in same |
|000025f0| 64 65 70 74 68 20 62 65 | 66 6f 72 65 2c 20 6e 6f |depth be|fore, no|
|00002600| 20 6e 65 65 64 20 74 6f | 20 75 70 64 61 74 65 2e | need to| update.|
|00002610| 0d 09 09 09 63 6c 72 2e | 6c 09 09 44 30 09 09 09 |....clr.|l..D0...|
|00002620| 09 09 09 09 2f 2f 20 44 | 30 20 77 69 6c 6c 20 68 |....// D|0 will h|
|00002630| 6f 6c 64 20 6f 75 72 20 | 6e 65 77 20 43 6f 6c 6f |old our |new Colo|
|00002640| 72 42 69 74 73 2e 0d 09 | 09 09 63 6c 72 2e 62 09 |rBits...|..clr.b.|
|00002650| 09 56 61 72 73 2d 3e 42 | 6c 61 63 6b 43 6f 6c 6f |.Vars->B|lackColo|
|00002660| 72 09 09 09 2f 2f 20 54 | 68 69 73 20 69 73 20 6a |r...// T|his is j|
|00002670| 75 73 74 20 61 20 66 6c | 61 67 20 77 65 20 61 72 |ust a fl|ag we ar|
|00002680| 65 20 62 6c 61 63 6b 2e | 0d 09 09 09 6c 65 61 09 |e black.|....lea.|
|00002690| 09 09 56 61 72 73 2d 3e | 52 53 52 43 2e 42 61 72 |..Vars->|RSRC.Bar|
|000026a0| 43 6f 6c 6f 72 2c 61 31 | 0d 0d 09 09 09 6d 6f 76 |Color,a1|.....mov|
|000026b0| 65 2e 6c 09 09 23 30 78 | 30 30 30 30 46 46 46 46 |e.l..#0x|0000FFFF|
|000026c0| 2c 4d 61 73 6b 09 09 09 | 2f 2f 20 42 61 73 65 20 |,Mask...|// Base |
|000026d0| 6d 61 73 6b 2e 0d 09 09 | 09 6d 6f 76 65 2e 62 09 |mask....|.move.b.|
|000026e0| 09 23 31 36 2c 53 68 69 | 66 74 53 69 7a 65 0d 09 |.#16,Shi|ftSize..|
|000026f0| 09 09 6d 6f 76 65 2e 77 | 09 09 50 69 78 4d 61 70 |..move.w|..PixMap|
|00002700| 2e 63 6d 70 53 69 7a 65 | 28 53 63 72 65 65 6e 50 |.cmpSize|(ScreenP|
|00002710| 69 78 4d 61 70 29 2c 53 | 63 72 61 74 63 68 20 20 |ixMap),S|cratch  |
|00002720| 2f 2f 20 57 65 27 6c 6c | 20 6e 65 65 64 20 74 68 |// We'll| need th|
|00002730| 69 73 20 6c 61 74 65 72 | 2e 0d 09 09 09 73 75 62 |is later|.....sub|
|00002740| 2e 62 09 09 53 63 72 61 | 74 63 68 2c 53 68 69 66 |.b..Scra|tch,Shif|
|00002750| 74 53 69 7a 65 0d 09 09 | 09 4c 53 4c 2e 77 09 09 |tSize...|.LSL.w..|
|00002760| 53 68 69 66 74 53 69 7a | 65 2c 4d 61 73 6b 09 09 |ShiftSiz|e,Mask..|
|00002770| 09 09 2f 2f 20 53 68 69 | 66 74 20 6d 61 73 6b 20 |..// Shi|ft mask |
|00002780| 69 6e 74 6f 20 70 6f 73 | 69 74 69 6f 6e 2e 0d 0d |into pos|ition...|
|00002790| 09 09 09 6d 6f 76 65 2e | 77 09 09 53 63 72 65 65 |...move.|w..Scree|
|000027a0| 6e 50 69 78 4d 61 70 2d | 3e 63 6d 70 43 6f 75 6e |nPixMap-|>cmpCoun|
|000027b0| 74 2c 44 31 0d 09 09 09 | 73 75 62 71 2e 77 09 09 |t,D1....|subq.w..|
|000027c0| 23 31 2c 44 31 0d 40 4d | 61 6b 65 44 42 69 74 73 |#1,D1.@M|akeDBits|
|000027d0| 4c 6f 6f 70 0d 09 09 09 | 6d 6f 76 65 2e 77 09 09 |Loop....|move.w..|
|000027e0| 28 61 31 29 2b 2c 44 32 | 0d 09 09 09 61 6e 64 2e |(a1)+,D2|....and.|
|000027f0| 6c 09 09 4d 61 73 6b 2c | 44 32 09 09 09 09 09 09 |l..Mask,|D2......|
|00002800| 2f 2f 20 4f 6e 6c 79 20 | 74 61 6b 65 20 77 68 61 |// Only |take wha|
|00002810| 74 20 77 65 20 6e 65 65 | 64 2e 0d 09 09 09 4c 53 |t we nee|d.....LS|
|00002820| 52 2e 77 09 09 53 68 69 | 66 74 53 69 7a 65 2c 44 |R.w..Shi|ftSize,D|
|00002830| 32 09 09 09 09 2f 2f 20 | 53 68 69 66 74 20 72 65 |2....// |Shift re|
|00002840| 73 75 6c 74 20 62 61 63 | 6b 2e 0d 09 09 09 42 4e |sult bac|k.....BN|
|00002850| 45 09 09 09 40 4e 6f 74 | 42 6c 61 63 6b 0d 09 09 |E...@Not|Black...|
|00002860| 09 53 54 09 09 09 56 61 | 72 73 2d 3e 42 6c 61 63 |.ST...Va|rs->Blac|
|00002870| 6b 43 6f 6c 6f 72 0d 40 | 4e 6f 74 42 6c 61 63 6b |kColor.@|NotBlack|
|00002880| 09 4c 53 4c 2e 6c 09 09 | 53 63 72 61 74 63 68 2c |.LSL.l..|Scratch,|
|00002890| 44 30 09 09 09 09 09 2f | 2f 20 52 65 73 65 72 76 |D0...../|/ Reserv|
|000028a0| 65 20 73 70 61 63 65 2e | 20 52 65 6d 65 6d 62 65 |e space.| Remembe|
|000028b0| 72 2c 20 53 63 72 61 74 | 63 68 20 69 73 20 53 63 |r, Scrat|ch is Sc|
|000028c0| 72 65 65 6e 50 69 78 4d | 61 70 2d 3e 2d 3e 63 6d |reenPixM|ap->->cm|
|000028d0| 70 53 69 7a 65 2e 0d 09 | 09 09 6f 72 2e 6c 09 09 |pSize...|..or.l..|
|000028e0| 44 32 2c 44 30 09 09 09 | 09 09 09 2f 2f 20 49 6e |D2,D0...|...// In|
|000028f0| 73 65 72 74 20 6f 75 72 | 20 70 69 78 65 6c 20 69 |sert our| pixel i|
|00002900| 6e 64 65 78 2e 0d 09 09 | 09 64 62 72 61 09 09 44 |ndex....|.dbra..D|
|00002910| 31 2c 40 4d 61 6b 65 44 | 42 69 74 73 4c 6f 6f 70 |1,@MakeD|BitsLoop|
|00002920| 0d 09 09 09 63 6d 70 2e | 77 09 09 23 31 36 2c 53 |....cmp.|w..#16,S|
|00002930| 63 72 65 65 6e 50 69 78 | 4d 61 70 2d 3e 70 69 78 |creenPix|Map->pix|
|00002940| 65 6c 53 69 7a 65 0d 09 | 09 09 42 4e 45 09 09 09 |elSize..|..BNE...|
|00002950| 40 53 6b 69 70 44 43 42 | 57 6f 72 64 43 6f 70 79 |@SkipDCB|WordCopy|
|00002960| 09 09 09 2f 2f 20 33 32 | 2d 62 69 74 20 69 73 20 |...// 32|-bit is |
|00002970| 66 69 6e 69 73 68 65 64 | 2e 20 31 36 2d 62 69 74 |finished|. 16-bit|
|00002980| 20 6e 65 65 64 73 20 74 | 6f 20 62 65 20 65 78 74 | needs t|o be ext|
|00002990| 65 6e 64 65 64 2e 0d 09 | 09 09 6d 6f 76 65 2e 77 |ended...|..move.w|
|000029a0| 09 09 44 30 2c 44 31 0d | 09 09 09 73 77 61 70 09 |..D0,D1.|...swap.|
|000029b0| 09 44 30 0d 09 09 09 6d | 6f 76 65 2e 77 09 09 44 |.D0....m|ove.w..D|
|000029c0| 31 2c 44 30 0d 40 53 6b | 69 70 44 43 42 57 6f 72 |1,D0.@Sk|ipDCBWor|
|000029d0| 64 43 6f 70 79 0d 09 09 | 09 6d 6f 76 65 2e 6c 09 |dCopy...|.move.l.|
|000029e0| 09 44 30 2c 56 61 72 73 | 2d 3e 43 6f 6c 6f 72 42 |.D0,Vars|->ColorB|
|000029f0| 69 74 73 0d 09 09 09 6d | 6f 76 65 2e 77 09 09 53 |its....m|ove.w..S|
|00002a00| 63 72 65 65 6e 50 69 78 | 4d 61 70 2d 3e 70 69 78 |creenPix|Map->pix|
|00002a10| 65 6c 53 69 7a 65 2c 56 | 61 72 73 2d 3e 43 6f 6c |elSize,V|ars->Col|
|00002a20| 6f 72 53 69 7a 65 0d 09 | 09 09 62 72 61 09 09 09 |orSize..|..bra...|
|00002a30| 40 53 6b 69 70 55 43 42 | 0d 09 09 7d 0d 09 7d 0d |@SkipUCB|...}..}.|
|00002a40| 0d 0d 09 7b 20 20 2f 2f | 20 76 6f 69 64 20 44 72 |...{  //| void Dr|
|00002a50| 61 77 50 69 65 28 29 0d | 09 09 72 65 67 69 73 74 |awPie().|..regist|
|00002a60| 65 72 20 4d 65 6d 56 61 | 72 73 09 2a 56 61 72 73 |er MemVa|rs.*Vars|
|00002a70| 3b 0d 09 09 72 65 67 69 | 73 74 65 72 20 6c 6f 6e |;...regi|ster lon|
|00002a80| 67 09 09 53 63 72 61 74 | 63 68 2c 0d 09 09 09 09 |g..Scrat|ch,.....|
|00002a90| 09 09 09 54 6f 74 4d 65 | 6d 2c 0d 09 09 09 09 09 |...TotMe|m,......|
|00002aa0| 09 09 4d 65 6d 44 65 67 | 3b 0d 09 09 09 09 09 09 |..MemDeg|;.......|
|00002ab0| 09 0d 09 09 23 64 65 66 | 69 6e 65 20 46 75 6c 6c |....#def|ine Full|
|00002ac0| 43 69 72 63 6c 65 09 33 | 36 30 3b 09 09 09 09 09 |Circle.3|60;.....|
|00002ad0| 09 2f 2f 20 44 65 67 72 | 65 65 73 20 69 6e 20 61 |.// Degr|ees in a|
|00002ae0| 20 63 69 72 63 6c 65 2e | 0d 09 0d 09 09 61 73 6d | circle.|.....asm|
|00002af0| 7b 0d 09 0d 40 50 69 65 | 52 65 63 74 09 64 63 2e |{...@Pie|Rect.dc.|
|00002b00| 77 09 09 30 2c 30 2c 30 | 2c 30 0d 40 52 47 42 42 |w..0,0,0|,0.@RGBB|
|00002b10| 6c 61 63 6b 09 64 63 2e | 77 09 09 30 78 30 30 30 |lack.dc.|w..0x000|
|00002b20| 30 2c 30 78 30 30 30 30 | 2c 30 78 30 30 30 30 0d |0,0x0000|,0x0000.|
|00002b30| 40 52 47 42 57 68 69 74 | 65 09 64 63 2e 77 09 09 |@RGBWhit|e.dc.w..|
|00002b40| 30 78 46 46 46 46 2c 30 | 78 46 46 46 46 2c 30 78 |0xFFFF,0|xFFFF,0x|
|00002b50| 46 46 46 46 0d 0d 40 50 | 69 65 52 74 73 09 09 6d |FFFF..@P|ieRts..m|
|00002b60| 6f 76 65 6d 2e 6c 09 09 | 28 73 70 29 2b 2c 56 61 |ovem.l..|(sp)+,Va|
|00002b70| 72 73 2f 53 63 72 61 74 | 63 68 2f 54 6f 74 4d 65 |rs/Scrat|ch/TotMe|
|00002b80| 6d 2f 4d 65 6d 44 65 67 | 0d 09 09 09 72 74 73 0d |m/MemDeg|....rts.|
|00002b90| 0d 40 44 72 61 77 50 69 | 65 09 6d 6f 76 65 6d 2e |.@DrawPi|e.movem.|
|00002ba0| 6c 09 09 56 61 72 73 2f | 53 63 72 61 74 63 68 2f |l..Vars/|Scratch/|
|00002bb0| 54 6f 74 4d 65 6d 2f 4d | 65 6d 44 65 67 2c 2d 28 |TotMem/M|emDeg,-(|
|00002bc0| 73 70 29 0d 09 09 09 6d | 6f 76 65 2e 6c 09 09 40 |sp)....m|ove.l..@|
|00002bd0| 6d 79 56 61 72 73 2c 56 | 61 72 73 0d 09 09 09 74 |myVars,V|ars....t|
|00002be0| 73 74 2e 62 09 09 56 61 | 72 73 2d 3e 52 53 52 43 |st.b..Va|rs->RSRC|
|00002bf0| 2e 50 69 65 41 63 74 69 | 76 65 0d 09 09 09 42 45 |.PieActi|ve....BE|
|00002c00| 51 09 09 09 40 50 69 65 | 52 74 73 0d 09 09 09 6d |Q...@Pie|Rts....m|
|00002c10| 6f 76 65 2e 6c 09 09 54 | 69 63 6b 73 2c 44 30 0d |ove.l..T|icks,D0.|
|00002c20| 09 09 09 63 6d 70 2e 6c | 09 09 56 61 72 73 2d 3e |...cmp.l|..Vars->|
|00002c30| 50 69 65 4e 65 78 74 55 | 70 64 61 74 65 2c 44 30 |PieNextU|pdate,D0|
|00002c40| 0d 09 09 09 42 4c 54 09 | 09 09 40 50 69 65 52 74 |....BLT.|..@PieRt|
|00002c50| 73 0d 09 09 09 74 73 74 | 2e 77 09 09 4d 42 61 72 |s....tst|.w..MBar|
|00002c60| 48 65 69 67 68 74 0d 09 | 09 09 42 4c 45 09 09 09 |Height..|..BLE...|
|00002c70| 40 50 69 65 52 74 73 0d | 0d 2f 2f 20 55 70 64 61 |@PieRts.|.// Upda|
|00002c80| 74 65 20 6e 65 78 74 20 | 75 70 64 61 74 65 20 74 |te next |update t|
|00002c90| 69 6d 65 2e 0d 09 09 09 | 61 64 64 2e 6c 09 09 56 |ime.....|add.l..V|
|00002ca0| 61 72 73 2d 3e 52 53 52 | 43 2e 50 69 65 54 69 6d |ars->RSR|C.PieTim|
|00002cb0| 65 2c 44 30 09 09 2f 2f | 20 44 30 3d 54 69 63 6b |e,D0..//| D0=Tick|
|00002cc0| 73 0d 09 09 09 6d 6f 76 | 65 2e 6c 09 09 44 30 2c |s....mov|e.l..D0,|
|00002cd0| 56 61 72 73 2d 3e 50 69 | 65 4e 65 78 74 55 70 64 |Vars->Pi|eNextUpd|
|00002ce0| 61 74 65 0d 0d 2f 2f 20 | 46 69 67 75 72 65 20 70 |ate..// |Figure p|
|00002cf0| 69 65 20 73 69 7a 65 2e | 0d 09 09 09 63 6c 72 2e |ie size.|....clr.|
|00002d00| 6c 09 09 53 63 72 61 74 | 63 68 0d 09 09 09 6d 6f |l..Scrat|ch....mo|
|00002d10| 76 65 2e 6c 09 09 54 68 | 65 5a 6f 6e 65 2c 44 30 |ve.l..Th|eZone,D0|
|00002d20| 0d 09 09 09 63 6d 70 2e | 6c 09 09 41 70 70 6c 5a |....cmp.|l..ApplZ|
|00002d30| 6f 6e 65 2c 44 30 0d 09 | 09 09 42 4e 45 09 09 09 |one,D0..|..BNE...|
|00002d40| 40 50 4e 6f 74 41 70 70 | 6c 5a 6f 6e 65 53 69 7a |@PNotApp|lZoneSiz|
|00002d50| 65 0d 09 09 09 6d 6f 76 | 65 2e 6c 09 09 41 70 70 |e....mov|e.l..App|
|00002d60| 6c 4c 69 6d 69 74 2c 54 | 6f 74 4d 65 6d 0d 09 09 |lLimit,T|otMem...|
|00002d70| 09 6d 6f 76 65 2e 6c 09 | 09 54 6f 74 4d 65 6d 2c |.move.l.|.TotMem,|
|00002d80| 53 63 72 61 74 63 68 0d | 09 09 09 73 75 62 2e 6c |Scratch.|...sub.l|
|00002d90| 09 09 41 70 70 6c 5a 6f | 6e 65 2c 54 6f 74 4d 65 |..ApplZo|ne,TotMe|
|00002da0| 6d 0d 09 09 09 73 75 62 | 2e 6c 09 09 48 65 61 70 |m....sub|.l..Heap|
|00002db0| 45 6e 64 2c 53 63 72 61 | 74 63 68 0d 09 09 09 42 |End,Scra|tch....B|
|00002dc0| 52 41 09 09 09 40 50 5a | 6f 6e 65 53 69 7a 65 43 |RA...@PZ|oneSizeC|
|00002dd0| 6f 6d 70 75 74 65 64 0d | 40 50 4e 6f 74 41 70 70 |omputed.|@PNotApp|
|00002de0| 6c 5a 6f 6e 65 53 69 7a | 65 0d 09 09 09 6d 6f 76 |lZoneSiz|e....mov|
|00002df0| 65 2e 6c 09 09 48 65 61 | 70 45 6e 64 2c 54 6f 74 |e.l..Hea|pEnd,Tot|
|00002e00| 4d 65 6d 0d 09 09 09 73 | 75 62 2e 6c 09 09 44 30 |Mem....s|ub.l..D0|
|00002e10| 2c 54 6f 74 4d 65 6d 09 | 09 09 09 09 2f 2f 20 46 |,TotMem.|....// F|
|00002e20| 69 6e 64 20 74 6f 74 61 | 6c 20 68 65 61 70 20 73 |ind tota|l heap s|
|00002e30| 70 61 63 65 2e 0d 40 50 | 5a 6f 6e 65 53 69 7a 65 |pace..@P|ZoneSize|
|00002e40| 43 6f 6d 70 75 74 65 64 | 0d 09 09 09 6c 73 72 2e |Computed|....lsr.|
|00002e50| 6c 09 09 23 53 68 69 66 | 74 41 6d 74 2c 54 6f 74 |l..#Shif|tAmt,Tot|
|00002e60| 4d 65 6d 09 09 09 2f 2f | 20 53 71 75 69 73 68 20 |Mem...//| Squish |
|00002e70| 69 6e 74 6f 20 6f 6e 65 | 20 77 6f 72 64 2e 20 20 |into one| word.  |
|00002e80| 41 63 63 6f 6d 6f 64 61 | 74 65 73 20 75 70 20 74 |Accomoda|tes up t|
|00002e90| 6f 20 31 36 4d 2e 0d 09 | 09 09 5f 46 72 65 65 4d |o 16M...|.._FreeM|
|00002ea0| 65 6d 09 09 09 09 09 09 | 09 09 2f 2f 20 47 65 74 |em......|..// Get|
|00002eb0| 20 66 72 65 65 20 6d 65 | 6d 6f 72 79 20 69 6e 20 | free me|mory in |
|00002ec0| 44 30 2e 0d 09 09 09 61 | 64 64 2e 6c 09 09 53 63 |D0.....a|dd.l..Sc|
|00002ed0| 72 61 74 63 68 2c 44 30 | 0d 09 09 09 6c 73 72 2e |ratch,D0|....lsr.|
|00002ee0| 6c 09 09 23 53 68 69 66 | 74 41 6d 74 2c 44 30 09 |l..#Shif|tAmt,D0.|
|00002ef0| 09 09 09 2f 2f 20 53 71 | 75 69 73 68 20 69 6e 74 |...// Sq|uish int|
|00002f00| 6f 20 6f 6e 65 20 77 6f | 72 64 2e 0d 09 09 09 6d |o one wo|rd.....m|
|00002f10| 75 6c 75 09 09 23 46 75 | 6c 6c 43 69 72 63 6c 65 |ulu..#Fu|llCircle|
|00002f20| 2c 44 30 09 09 09 09 2f | 2f 20 4d 75 6c 74 69 70 |,D0..../|/ Multip|
|00002f30| 6c 79 20 66 72 65 65 20 | 62 79 20 33 36 30 a1 0d |ly free |by 360..|
|00002f40| 09 09 09 64 69 76 75 09 | 09 54 6f 74 4d 65 6d 2c |...divu.|.TotMem,|
|00002f50| 44 30 09 09 09 09 09 2f | 2f 20 20 20 61 6e 64 20 |D0...../|/   and |
|00002f60| 64 69 76 69 64 65 20 62 | 79 20 74 6f 74 61 6c 20 |divide b|y total |
|00002f70| 6d 65 6d 2e 0d 09 09 09 | 6d 6f 76 65 2e 77 09 09 |mem.....|move.w..|
|00002f80| 23 46 75 6c 6c 43 69 72 | 63 6c 65 2c 4d 65 6d 44 |#FullCir|cle,MemD|
|00002f90| 65 67 0d 09 09 09 73 75 | 62 2e 77 09 09 44 30 2c |eg....su|b.w..D0,|
|00002fa0| 4d 65 6d 44 65 67 0d 0d | 2f 2f 20 53 61 76 65 20 |MemDeg..|// Save |
|00002fb0| 6f 6c 64 20 70 6f 72 74 | 20 6f 6e 20 73 74 61 63 |old port| on stac|
|00002fc0| 6b 20 61 6e 64 20 73 65 | 74 20 74 6f 20 6f 75 72 |k and se|t to our|
|00002fd0| 20 70 6f 72 74 2e 0d 09 | 09 09 73 75 62 71 2e 6c | port...|..subq.l|
|00002fe0| 09 09 23 34 2c 73 70 09 | 09 09 09 09 09 2f 2f 20 |..#4,sp.|.....// |
|00002ff0| 53 70 61 63 65 20 77 68 | 65 72 65 20 77 65 27 6c |Space wh|ere we'l|
|00003000| 6c 20 70 75 74 20 73 61 | 76 65 64 20 67 72 61 66 |l put sa|ved graf|
|00003010| 50 74 72 2e 0d 09 09 09 | 70 65 61 09 09 09 28 73 |Ptr.....|pea...(s|
|00003020| 70 29 09 09 09 09 09 09 | 2f 2f 20 50 75 73 68 20 |p)......|// Push |
|00003030| 61 64 64 72 65 73 73 20 | 6f 66 20 73 61 76 65 64 |address |of saved|
|00003040| 20 70 6f 72 74 2e 0d 09 | 09 09 5f 47 65 74 50 6f | port...|.._GetPo|
|00003050| 72 74 09 09 09 09 09 09 | 09 09 2f 2f 20 47 65 74 |rt......|..// Get|
|00003060| 20 6f 6c 64 20 70 6f 72 | 74 2e 0d 09 09 09 70 65 | old por|t.....pe|
|00003070| 61 09 09 09 56 61 72 73 | 2d 3e 50 69 65 50 6f 72 |a...Vars|->PiePor|
|00003080| 74 0d 09 09 09 5f 53 65 | 74 50 6f 72 74 0d 0d 09 |t...._Se|tPort...|
|00003090| 09 09 6c 65 61 09 09 09 | 40 50 69 65 52 65 63 74 |..lea...|@PieRect|
|000030a0| 2c 61 30 0d 09 09 09 6d | 6f 76 65 2e 77 09 09 23 |,a0....m|ove.w..#|
|000030b0| 31 2c 28 61 30 29 2b 0d | 09 09 09 6d 6f 76 65 2e |1,(a0)+.|...move.|
|000030c0| 77 09 09 23 31 35 2c 28 | 61 30 29 2b 0d 09 09 09 |w..#15,(|a0)+....|
|000030d0| 6d 6f 76 65 2e 77 09 09 | 4d 42 61 72 48 65 69 67 |move.w..|MBarHeig|
|000030e0| 68 74 2c 44 30 0d 09 09 | 09 73 75 62 71 2e 77 09 |ht,D0...|.subq.w.|
|000030f0| 09 23 32 2c 44 30 0d 09 | 09 09 6d 6f 76 65 2e 77 |.#2,D0..|..move.w|
|00003100| 09 09 44 30 2c 28 61 30 | 29 2b 0d 09 09 09 61 64 |..D0,(a0|)+....ad|
|00003110| 64 2e 77 09 09 23 31 35 | 2d 31 2c 44 30 0d 09 09 |d.w..#15|-1,D0...|
|00003120| 09 6d 6f 76 65 2e 77 09 | 09 44 30 2c 28 61 30 29 |.move.w.|.D0,(a0)|
|00003130| 0d 09 09 09 0d 09 09 09 | 74 73 74 2e 62 09 09 56 |........|tst.b..V|
|00003140| 61 72 73 2d 3e 43 6f 6c | 6f 72 41 76 61 69 6c 0d |ars->Col|orAvail.|
|00003150| 09 09 09 62 65 71 09 09 | 09 40 44 6f 6e 74 53 65 |...beq..|.@DontSe|
|00003160| 74 42 6c 61 63 6b 43 6f | 6c 6f 72 0d 09 09 09 70 |tBlackCo|lor....p|
|00003170| 65 61 09 09 09 40 52 47 | 42 42 6c 61 63 6b 0d 09 |ea...@RG|BBlack..|
|00003180| 09 09 5f 52 47 42 46 6f | 72 65 43 6f 6c 6f 72 0d |.._RGBFo|reColor.|
|00003190| 09 09 09 70 65 61 09 09 | 09 40 52 47 42 57 68 69 |...pea..|.@RGBWhi|
|000031a0| 74 65 0d 09 09 09 5f 52 | 47 42 42 61 63 6b 43 6f |te...._R|GBBackCo|
|000031b0| 6c 6f 72 0d 40 44 6f 6e | 74 53 65 74 42 6c 61 63 |lor.@Don|tSetBlac|
|000031c0| 6b 43 6f 6c 6f 72 0d 09 | 09 09 70 65 61 09 09 09 |kColor..|..pea...|
|000031d0| 40 50 69 65 52 65 63 74 | 0d 09 09 09 5f 46 72 61 |@PieRect|...._Fra|
|000031e0| 6d 65 4f 76 61 6c 0d 0d | 2f 2f 20 53 65 74 20 75 |meOval..|// Set u|
|000031f0| 70 20 6f 75 72 20 63 6f | 6c 6f 72 73 20 69 66 20 |p our co|lors if |
|00003200| 6e 65 65 64 20 62 65 2e | 0d 09 09 09 74 73 74 2e |need be.|....tst.|
|00003210| 62 09 09 56 61 72 73 2d | 3e 43 6f 6c 6f 72 41 76 |b..Vars-|>ColorAv|
|00003220| 61 69 6c 0d 09 09 09 62 | 65 71 09 09 09 40 44 6f |ail....b|eq...@Do|
|00003230| 6e 74 53 65 74 43 6f 6c | 6f 72 73 0d 09 09 09 6d |ntSetCol|ors....m|
|00003240| 6f 76 65 2e 6c 09 09 56 | 61 72 73 2d 3e 4d 61 69 |ove.l..V|ars->Mai|
|00003250| 6e 50 4d 61 70 2c 41 30 | 0d 09 09 09 63 6d 70 2e |nPMap,A0|....cmp.|
|00003260| 77 09 09 23 32 2c 50 69 | 78 4d 61 70 2e 70 69 78 |w..#2,Pi|xMap.pix|
|00003270| 65 6c 53 69 7a 65 28 41 | 30 29 0d 09 09 09 62 6c |elSize(A|0)....bl|
|00003280| 74 09 09 09 40 44 6f 6e | 74 53 65 74 43 6f 6c 6f |t...@Don|tSetColo|
|00003290| 72 73 0d 09 09 09 70 65 | 61 09 09 09 56 61 72 73 |rs....pe|a...Vars|
|000032a0| 2d 3e 52 53 52 43 2e 50 | 69 65 50 69 65 43 6f 6c |->RSRC.P|iePieCol|
|000032b0| 6f 72 0d 09 09 09 5f 52 | 47 42 46 6f 72 65 43 6f |or...._R|GBForeCo|
|000032c0| 6c 6f 72 0d 09 09 09 70 | 65 61 09 09 09 56 61 72 |lor....p|ea...Var|
|000032d0| 73 2d 3e 52 53 52 43 2e | 50 69 65 50 61 6e 43 6f |s->RSRC.|PiePanCo|
|000032e0| 6c 6f 72 0d 09 09 09 5f | 52 47 42 42 61 63 6b 43 |lor...._|RGBBackC|
|000032f0| 6f 6c 6f 72 0d 40 44 6f | 6e 74 53 65 74 43 6f 6c |olor.@Do|ntSetCol|
|00003300| 6f 72 73 0d 0d 2f 2f 20 | 41 63 74 75 61 6c 6c 79 |ors..// |Actually|
|00003310| 20 64 72 61 77 20 74 68 | 65 20 73 74 75 66 66 2e | draw th|e stuff.|
|00003320| 0d 09 09 09 6c 65 61 09 | 09 09 40 50 69 65 52 65 |....lea.|..@PieRe|
|00003330| 63 74 2c 41 30 09 09 09 | 09 09 2f 2f 20 49 6e 73 |ct,A0...|..// Ins|
|00003340| 65 74 52 65 63 74 28 50 | 69 65 52 65 63 74 2c 31 |etRect(P|ieRect,1|
|00003350| 2c 31 29 3b 0d 09 09 09 | 61 64 64 71 2e 77 09 09 |,1);....|addq.w..|
|00003360| 23 31 2c 28 41 30 29 2b | 0d 09 09 09 61 64 64 71 |#1,(A0)+|....addq|
|00003370| 2e 77 09 09 23 31 2c 28 | 41 30 29 2b 0d 09 09 09 |.w..#1,(|A0)+....|
|00003380| 73 75 62 71 2e 77 09 09 | 23 31 2c 28 41 30 29 2b |subq.w..|#1,(A0)+|
|00003390| 0d 09 09 09 73 75 62 71 | 2e 77 09 09 23 31 2c 28 |....subq|.w..#1,(|
|000033a0| 41 30 29 2b 0d 0d 09 09 | 09 70 65 61 09 09 09 40 |A0)+....|.pea...@|
|000033b0| 50 69 65 52 65 63 74 0d | 09 09 09 63 6c 72 2e 77 |PieRect.|...clr.w|
|000033c0| 09 09 2d 28 73 70 29 09 | 09 09 09 09 09 2f 2f 20 |..-(sp).|.....// |
|000033d0| 73 74 61 72 74 41 6e 67 | 6c 65 3d 30 2e 0d 09 09 |startAng|le=0....|
|000033e0| 09 6d 6f 76 65 2e 77 09 | 09 4d 65 6d 44 65 67 2c |.move.w.|.MemDeg,|
|000033f0| 2d 28 73 70 29 0d 09 09 | 09 5f 50 61 69 6e 74 41 |-(sp)...|._PaintA|
|00003400| 72 63 0d 0d 09 09 09 70 | 65 61 09 09 09 40 50 69 |rc.....p|ea...@Pi|
|00003410| 65 52 65 63 74 0d 09 09 | 09 6d 6f 76 65 2e 77 09 |eRect...|.move.w.|
|00003420| 09 4d 65 6d 44 65 67 2c | 2d 28 73 70 29 0d 09 09 |.MemDeg,|-(sp)...|
|00003430| 09 6d 6f 76 65 2e 77 09 | 09 23 46 75 6c 6c 43 69 |.move.w.|.#FullCi|
|00003440| 72 63 6c 65 2c 44 30 0d | 09 09 09 73 75 62 2e 77 |rcle,D0.|...sub.w|
|00003450| 09 09 4d 65 6d 44 65 67 | 2c 44 30 0d 09 09 09 6d |..MemDeg|,D0....m|
|00003460| 6f 76 65 2e 77 09 09 44 | 30 2c 2d 28 73 70 29 0d |ove.w..D|0,-(sp).|
|00003470| 09 09 09 5f 45 72 61 73 | 65 41 72 63 0d 0d 2f 2f |..._Eras|eArc..//|
|00003480| 20 52 65 73 65 74 20 6f | 6c 64 20 70 6f 72 74 2e | Reset o|ld port.|
|00003490| 0d 09 09 09 5f 53 65 74 | 50 6f 72 74 09 09 09 09 |...._Set|Port....|
|000034a0| 09 09 09 09 2f 2f 20 4f | 6c 64 20 70 6f 72 74 20 |....// O|ld port |
|000034b0| 61 64 64 72 65 73 73 20 | 69 73 20 61 6c 72 65 61 |address |is alrea|
|000034c0| 64 79 20 6f 6e 20 73 74 | 61 63 6b 2e 0d 09 09 09 |dy on st|ack.....|
|000034d0| 62 72 61 09 09 09 40 50 | 69 65 52 74 73 0d 09 09 |bra...@P|ieRts...|
|000034e0| 7d 0d 09 7d 0d 0d 0d 09 | 7b 20 20 2f 2f 20 76 6f |}..}....|{  // vo|
|000034f0| 69 64 20 44 72 61 77 4d | 42 61 72 50 61 74 63 68 |id DrawM|BarPatch|
|00003500| 28 29 0d 09 09 72 65 67 | 69 73 74 65 72 20 4d 65 |()...reg|ister Me|
|00003510| 6d 56 61 72 73 09 2a 56 | 61 72 73 3b 0d 09 0d 09 |mVars.*V|ars;....|
|00003520| 09 61 73 6d 7b 0d 40 44 | 72 61 77 4d 42 61 72 50 |.asm{.@D|rawMBarP|
|00003530| 61 74 63 68 0d 09 09 09 | 6d 6f 76 65 2e 6c 09 09 |atch....|move.l..|
|00003540| 56 61 72 73 2c 2d 28 73 | 70 29 0d 09 09 09 6d 6f |Vars,-(s|p)....mo|
|00003550| 76 65 2e 6c 09 09 40 6d | 79 56 61 72 73 2c 56 61 |ve.l..@m|yVars,Va|
|00003560| 72 73 0d 09 09 09 6d 6f | 76 65 2e 6c 09 09 54 68 |rs....mo|ve.l..Th|
|00003570| 65 5a 6f 6e 65 2c 56 61 | 72 73 2d 3e 56 42 4c 48 |eZone,Va|rs->VBLH|
|00003580| 65 61 70 0d 09 09 09 74 | 73 74 2e 62 09 09 56 61 |eap....t|st.b..Va|
|00003590| 72 73 2d 3e 52 53 52 43 | 2e 56 42 4c 41 63 74 69 |rs->RSRC|.VBLActi|
|000035a0| 76 65 0d 09 09 09 42 45 | 51 09 09 09 40 44 4d 42 |ve....BE|Q...@DMB|
|000035b0| 50 56 42 4c 4e 6f 74 41 | 63 74 69 76 65 0d 09 09 |PVBLNotA|ctive...|
|000035c0| 09 6d 6f 76 65 2e 77 09 | 09 23 32 2c 56 61 72 73 |.move.w.|.#2,Vars|
|000035d0| 2d 3e 56 42 4c 52 65 63 | 2e 76 62 6c 43 6f 75 6e |->VBLRec|.vblCoun|
|000035e0| 74 0d 09 09 09 42 53 52 | 09 09 09 40 55 70 64 61 |t....BSR|...@Upda|
|000035f0| 74 65 43 6f 6c 6f 72 42 | 69 74 73 0d 40 44 4d 42 |teColorB|its.@DMB|
|00003600| 50 56 42 4c 4e 6f 74 41 | 63 74 69 76 65 09 0d 09 |PVBLNotA|ctive...|
|00003610| 09 09 63 6c 72 2e 6c 09 | 09 56 61 72 73 2d 3e 50 |..clr.l.|.Vars->P|
|00003620| 69 65 4e 65 78 74 55 70 | 64 61 74 65 0d 09 09 09 |ieNextUp|date....|
|00003630| 6d 6f 76 65 2e 6c 09 09 | 56 61 72 73 2d 3e 4f 6c |move.l..|Vars->Ol|
|00003640| 64 44 72 61 77 4d 42 61 | 72 2c 41 30 0d 09 09 09 |dDrawMBa|r,A0....|
|00003650| 6d 6f 76 65 2e 6c 09 09 | 28 73 70 29 2b 2c 56 61 |move.l..|(sp)+,Va|
|00003660| 72 73 0d 09 09 09 6a 6d | 70 09 09 09 28 41 30 29 |rs....jm|p...(A0)|
|00003670| 0d 09 09 7d 0d 09 7d 0d | 0d 0d 09 7b 20 20 2f 2f |...}..}.|...{  //|
|00003680| 20 76 6f 69 64 20 4d 79 | 47 4e 45 46 69 6c 74 65 | void My|GNEFilte|
|00003690| 72 28 29 0d 09 72 65 67 | 69 73 74 65 72 20 4d 65 |r()..reg|ister Me|
|000036a0| 6d 56 61 72 73 09 2a 56 | 61 72 73 3b 0d 0d 09 61 |mVars.*V|ars;...a|
|000036b0| 73 6d 7b 0d 0d 40 4d 79 | 47 4e 45 46 69 6c 74 65 |sm{..@My|GNEFilte|
|000036c0| 72 0d 09 09 09 6d 6f 76 | 65 2e 6c 09 09 56 61 72 |r....mov|e.l..Var|
|000036d0| 73 2c 2d 28 73 70 29 0d | 09 09 09 6d 6f 76 65 2e |s,-(sp).|...move.|
|000036e0| 6c 09 09 40 6d 79 56 61 | 72 73 2c 56 61 72 73 0d |l..@myVa|rs,Vars.|
|000036f0| 09 09 09 6d 6f 76 65 2e | 6c 09 09 54 68 65 5a 6f |...move.|l..TheZo|
|00003700| 6e 65 2c 56 61 72 73 2d | 3e 56 42 4c 48 65 61 70 |ne,Vars-|>VBLHeap|
|00003710| 0d 09 09 09 6d 6f 76 65 | 6d 2e 6c 09 09 61 30 2d |....move|m.l..a0-|
|00003720| 61 31 2f 44 30 2d 44 33 | 2c 2d 28 73 70 29 0d 0d |a1/D0-D3|,-(sp)..|
|00003730| 09 09 09 74 73 74 2e 62 | 09 09 56 61 72 73 2d 3e |...tst.b|..Vars->|
|00003740| 47 65 73 74 61 6c 74 50 | 72 65 73 65 6e 74 0d 09 |GestaltP|resent..|
|00003750| 09 09 42 45 51 2e 73 09 | 09 40 47 4e 45 4e 6f 53 |..BEQ.s.|.@GNENoS|
|00003760| 61 76 65 72 0d 09 09 09 | 6d 6f 76 65 2e 6c 09 09 |aver....|move.l..|
|00003770| 23 67 65 73 74 61 6c 74 | 53 63 72 65 65 6e 53 61 |#gestalt|ScreenSa|
|00003780| 76 65 72 41 74 74 72 2c | 44 30 09 2f 2f 20 47 65 |verAttr,|D0.// Ge|
|00003790| 73 74 61 6c 74 20 73 65 | 6c 65 63 74 6f 72 2e 0d |stalt se|lector..|
|000037a0| 09 09 09 5f 47 65 73 74 | 61 6c 74 0d 09 09 09 42 |..._Gest|alt....B|
|000037b0| 4e 45 2e 73 09 09 40 47 | 4e 45 4e 6f 53 61 76 65 |NE.s..@G|NENoSave|
|000037c0| 72 09 09 09 09 09 2f 2f | 20 4c 65 61 76 65 20 6f |r.....//| Leave o|
|000037d0| 6e 20 65 72 72 6f 72 2e | 0d 09 09 09 6d 6f 76 65 |n error.|....move|
|000037e0| 09 09 61 30 2c 44 30 0d | 09 09 09 42 54 53 54 09 |..a0,D0.|...BTST.|
|000037f0| 09 23 67 65 73 74 61 6c | 74 53 61 76 65 72 54 75 |.#gestal|tSaverTu|
|00003800| 72 6e 65 64 4f 6e 2c 44 | 30 0d 09 09 09 53 4e 45 |rnedOn,D|0....SNE|
|00003810| 09 09 09 56 61 72 73 2d | 3e 53 63 72 6e 53 61 76 |...Vars-|>ScrnSav|
|00003820| 65 72 50 72 65 73 65 6e | 74 0d 09 09 09 42 54 53 |erPresen|t....BTS|
|00003830| 54 09 09 23 67 65 73 74 | 61 6c 74 53 61 76 65 72 |T..#gest|altSaver|
|00003840| 41 73 6c 65 65 70 2c 44 | 30 0d 09 09 09 42 4e 45 |Asleep,D|0....BNE|
|00003850| 09 09 09 40 47 4e 45 53 | 6b 69 70 44 72 61 77 69 |...@GNES|kipDrawi|
|00003860| 6e 67 0d 09 09 09 42 52 | 41 09 09 09 40 47 4e 45 |ng....BR|A...@GNE|
|00003870| 53 61 76 65 72 0d 40 47 | 4e 45 4e 6f 53 61 76 65 |Saver.@G|NENoSave|
|00003880| 72 09 53 46 09 09 09 56 | 61 72 73 2d 3e 53 63 72 |r.SF...V|ars->Scr|
|00003890| 6e 53 61 76 65 72 50 72 | 65 73 65 6e 74 0d 0d 40 |nSaverPr|esent..@|
|000038a0| 47 4e 45 53 61 76 65 72 | 09 42 53 52 09 09 09 40 |GNESaver|.BSR...@|
|000038b0| 55 70 64 61 74 65 43 6f | 6c 6f 72 42 69 74 73 0d |UpdateCo|lorBits.|
|000038c0| 09 09 09 42 53 52 09 09 | 09 40 44 72 61 77 50 69 |...BSR..|.@DrawPi|
|000038d0| 65 0d 40 47 4e 45 53 6b | 69 70 44 72 61 77 69 6e |e.@GNESk|ipDrawin|
|000038e0| 67 0d 09 09 09 6d 6f 76 | 65 6d 2e 6c 09 09 28 73 |g....mov|em.l..(s|
|000038f0| 70 29 2b 2c 61 30 2d 61 | 31 2f 44 30 2d 44 33 0d |p)+,a0-a|1/D0-D3.|
|00003900| 09 09 09 6d 6f 76 65 2e | 6c 09 09 56 61 72 73 2d |...move.|l..Vars-|
|00003910| 3e 4f 6c 64 47 4e 45 46 | 69 6c 74 65 72 2c 61 30 |>OldGNEF|ilter,a0|
|00003920| 0d 09 09 09 6d 6f 76 65 | 2e 6c 09 09 28 73 70 29 |....move|.l..(sp)|
|00003930| 2b 2c 56 61 72 73 0d 09 | 09 09 6d 6f 76 65 2e 6c |+,Vars..|..move.l|
|00003940| 09 09 41 30 2c 2d 28 73 | 70 29 09 09 09 09 09 2f |..A0,-(s|p)...../|
|00003950| 2f 20 47 6f 74 20 74 68 | 69 73 20 6c 69 74 74 6c |/ Got th|is littl|
|00003960| 65 20 67 65 6d 20 66 72 | 6f 6d 20 47 65 74 4e 65 |e gem fr|om GetNe|
|00003970| 78 74 45 76 65 6e 74 2e | 0d 09 09 09 42 4e 45 09 |xtEvent.|....BNE.|
|00003980| 09 09 40 49 73 4f 6c 64 | 47 4e 45 46 69 6c 74 65 |..@IsOld|GNEFilte|
|00003990| 72 0d 09 09 09 61 64 64 | 71 2e 6c 09 09 23 34 2c |r....add|q.l..#4,|
|000039a0| 73 70 09 09 09 09 09 09 | 2f 2f 20 49 66 20 74 68 |sp......|// If th|
|000039b0| 65 72 65 27 73 20 6e 6f | 20 6f 6c 64 20 66 69 6c |ere's no| old fil|
|000039c0| 74 65 72 2c 20 70 6f 70 | 20 61 64 64 72 65 73 73 |ter, pop| address|
|000039d0| 20 6f 66 66 20 73 74 61 | 63 6b 2e 0d 40 49 73 4f | off sta|ck..@IsO|
|000039e0| 6c 64 47 4e 45 46 69 6c | 74 65 72 0d 09 09 09 72 |ldGNEFil|ter....r|
|000039f0| 74 73 0d 09 09 7d 0d 09 | 7d 0d 0d 0d 09 7b 20 20 |ts...}..|}....{  |
|00003a00| 2f 2f 20 70 61 73 63 61 | 6c 20 4f 53 45 72 72 20 |// pasca|l OSErr |
|00003a10| 47 65 73 74 61 6c 74 53 | 65 6c 65 63 74 6f 72 28 |GestaltS|elector(|
|00003a20| 4f 53 54 79 70 65 20 20 | 73 65 6c 65 63 74 6f 72 |OSType  |selector|
|00003a30| 2c 6c 6f 6e 67 20 2a 72 | 65 73 70 6f 6e 73 65 29 |,long *r|esponse)|
|00003a40| 0d 09 61 73 6d 7b 0d 09 | 0d 40 47 65 73 74 61 6c |..asm{..|.@Gestal|
|00003a50| 74 53 65 6c 65 63 74 6f | 72 0d 09 09 09 6d 6f 76 |tSelecto|r....mov|
|00003a60| 65 2e 6c 09 09 28 73 70 | 29 2b 2c 41 30 09 09 09 |e.l..(sp|)+,A0...|
|00003a70| 09 09 2f 2f 20 52 65 74 | 75 72 6e 20 41 64 64 72 |..// Ret|urn Addr|
|00003a80| 2e 0d 09 09 09 6d 6f 76 | 65 2e 6c 09 09 28 73 70 |.....mov|e.l..(sp|
|00003a90| 29 2b 2c 41 31 09 09 09 | 09 09 2f 2f 20 52 65 73 |)+,A1...|..// Res|
|00003aa0| 70 6f 6e 73 65 20 41 64 | 64 72 2e 0d 09 09 09 6d |ponse Ad|dr.....m|
|00003ab0| 6f 76 65 2e 6c 09 09 40 | 6d 79 56 61 72 73 2c 28 |ove.l..@|myVars,(|
|00003ac0| 41 31 29 09 09 09 09 2f | 2f 20 43 6f 70 79 20 76 |A1)..../|/ Copy v|
|00003ad0| 61 72 73 20 61 64 64 72 | 20 69 6e 74 6f 20 72 65 |ars addr| into re|
|00003ae0| 73 70 6f 6e 73 65 2e 0d | 09 09 09 61 64 64 71 2e |sponse..|...addq.|
|00003af0| 6c 09 09 23 34 2c 73 70 | 09 09 09 09 09 09 2f 2f |l..#4,sp|......//|
|00003b00| 20 47 65 74 20 72 69 64 | 20 6f 66 20 73 65 6c 65 | Get rid| of sele|
|00003b10| 63 74 6f 72 2e 0d 09 09 | 09 63 6c 72 2e 77 09 09 |ctor....|.clr.w..|
|00003b20| 28 73 70 29 0d 09 09 09 | 6a 6d 70 09 09 09 28 41 |(sp)....|jmp...(A|
|00003b30| 30 29 0d 40 43 6f 70 79 | 45 6e 64 0d 09 09 7d 0d |0).@Copy|End...}.|
|00003b40| 09 7d 0d 0d 0d 09 7b 20 | 20 2f 2f 20 76 6f 69 64 |.}....{ | // void|
|00003b50| 20 53 65 74 55 70 28 29 | 0d 09 09 72 65 67 69 73 | SetUp()|...regis|
|00003b60| 74 65 72 20 4d 65 6d 56 | 61 72 73 09 2a 56 61 72 |ter MemV|ars.*Var|
|00003b70| 73 3b 0d 09 09 72 65 67 | 69 73 74 65 72 20 50 74 |s;...reg|ister Pt|
|00003b80| 72 09 09 43 6f 64 65 43 | 6f 70 79 3b 0d 09 09 72 |r..CodeC|opy;...r|
|00003b90| 65 67 69 73 74 65 72 20 | 6c 6f 6e 67 09 09 53 63 |egister |long..Sc|
|00003ba0| 72 61 74 63 68 3b 0d 09 | 0d 09 09 61 73 6d 7b 0d |ratch;..|...asm{.|
|00003bb0| 40 53 65 74 55 70 0d 09 | 09 09 4c 49 4e 4b 09 09 |@SetUp..|..LINK..|
|00003bc0| 41 36 2c 23 30 0d 2f 2f | 20 4e 4f 54 45 3a 20 57 |A6,#0.//| NOTE: W|
|00003bd0| 65 20 64 6f 6e 27 74 20 | 68 61 76 65 20 74 6f 20 |e don't |have to |
|00003be0| 73 61 76 65 20 61 6e 79 | 20 72 65 67 69 73 74 65 |save any| registe|
|00003bf0| 72 73 3b 20 54 48 49 4e | 4b 20 43 20 61 75 74 6f |rs; THIN|K C auto|
|00003c00| 6d 61 74 69 63 61 6c 6c | 79 20 73 61 76 65 73 20 |maticall|y saves |
|00003c10| 74 68 65 6d 20 66 6f 72 | 20 75 73 2e 0d 0d 09 09 |them for| us.....|
|00003c20| 09 6d 6f 76 65 2e 6c 09 | 09 54 68 65 5a 6f 6e 65 |.move.l.|.TheZone|
|00003c30| 2c 2d 28 73 70 29 09 09 | 09 09 2f 2f 20 52 65 6d |,-(sp)..|..// Rem|
|00003c40| 65 6d 62 65 72 20 63 75 | 72 72 65 6e 74 20 7a 6f |ember cu|rrent zo|
|00003c50| 6e 65 2e 0d 09 09 09 6d | 6f 76 65 2e 6c 09 09 53 |ne.....m|ove.l..S|
|00003c60| 79 73 5a 6f 6e 65 2c 54 | 68 65 5a 6f 6e 65 0d 0d |ysZone,T|heZone..|
|00003c70| 09 09 09 73 75 62 71 2e | 6c 09 09 23 32 2c 73 70 |...subq.|l..#2,sp|
|00003c80| 09 09 09 09 09 09 2f 2f | 20 52 65 73 65 72 76 65 |......//| Reserve|
|00003c90| 20 72 65 73 75 6c 74 20 | 73 70 61 63 65 2e 0d 09 | result |space...|
|00003ca0| 09 09 5f 42 75 74 74 6f | 6e 0d 09 09 09 74 73 74 |.._Butto|n....tst|
|00003cb0| 2e 77 09 09 28 73 70 29 | 2b 0d 09 09 09 42 4e 45 |.w..(sp)|+....BNE|
|00003cc0| 09 09 09 40 42 61 64 45 | 6e 64 69 6e 67 0d 0d 09 |...@BadE|nding...|
|00003cd0| 09 09 73 75 62 71 2e 6c | 09 09 23 34 2c 73 70 09 |..subq.l|..#4,sp.|
|00003ce0| 09 09 09 09 09 2f 2f 20 | 52 65 73 65 72 76 65 20 |.....// |Reserve |
|00003cf0| 73 70 61 63 65 20 66 6f | 72 20 72 65 73 75 6c 74 |space fo|r result|
|00003d00| 2e 0d 09 09 09 6d 6f 76 | 65 2e 6c 09 09 23 27 4d |.....mov|e.l..#'M|
|00003d10| 56 61 72 27 2c 2d 28 73 | 70 29 09 09 09 09 2f 2f |Var',-(s|p)....//|
|00003d20| 20 52 65 73 6f 75 72 63 | 65 20 74 79 70 65 2e 0d | Resourc|e type..|
|00003d30| 09 09 09 63 6c 72 2e 77 | 09 09 2d 28 73 70 29 09 |...clr.w|..-(sp).|
|00003d40| 09 09 09 09 09 2f 2f 20 | 52 65 73 6f 75 72 63 65 |.....// |Resource|
|00003d50| 20 49 44 20 28 30 29 2e | 0d 09 09 09 5f 47 65 74 | ID (0).|...._Get|
|00003d60| 52 65 73 6f 75 72 63 65 | 0d 09 09 09 6d 6f 76 65 |Resource|....move|
|00003d70| 2e 6c 09 09 28 73 70 29 | 2c 56 61 72 73 0d 09 09 |.l..(sp)|,Vars...|
|00003d80| 09 74 73 74 2e 6c 09 09 | 28 73 70 29 2b 09 09 09 |.tst.l..|(sp)+...|
|00003d90| 09 09 09 2f 2f 20 49 66 | 20 6e 69 6c 20 68 61 6e |...// If| nil han|
|00003da0| 64 6c 65 2c 20 65 78 69 | 74 2e 0d 09 09 09 42 45 |dle, exi|t.....BE|
|00003db0| 51 09 09 09 40 42 61 64 | 45 6e 64 69 6e 67 0d 09 |Q...@Bad|Ending..|
|00003dc0| 09 09 6d 6f 76 65 2e 6c | 09 09 56 61 72 73 2c 2d |..move.l|..Vars,-|
|00003dd0| 28 73 70 29 0d 09 09 09 | 5f 44 65 74 61 63 68 52 |(sp)....|_DetachR|
|00003de0| 65 73 6f 75 72 63 65 0d | 09 09 09 6d 6f 76 65 2e |esource.|...move.|
|00003df0| 6c 09 09 56 61 72 73 2c | 61 30 0d 09 09 09 5f 47 |l..Vars,|a0...._G|
|00003e00| 65 74 48 61 6e 64 6c 65 | 53 69 7a 65 0d 09 09 09 |etHandle|Size....|
|00003e10| 63 6d 70 2e 6c 09 09 23 | 73 69 7a 65 6f 66 28 4d |cmp.l..#|sizeof(M|
|00003e20| 65 6d 52 53 52 43 56 61 | 72 73 29 2c 44 30 0d 09 |emRSRCVa|rs),D0..|
|00003e30| 09 09 42 45 51 09 09 09 | 40 48 61 6e 64 6c 65 53 |..BEQ...|@HandleS|
|00003e40| 69 7a 65 4f 4b 0d 09 09 | 09 5f 44 69 73 70 6f 73 |izeOK...|._Dispos|
|00003e50| 48 61 6e 64 6c 65 0d 09 | 09 09 42 52 41 09 09 09 |Handle..|..BRA...|
|00003e60| 40 42 61 64 45 6e 64 69 | 6e 67 0d 40 48 61 6e 64 |@BadEndi|ng.@Hand|
|00003e70| 6c 65 53 69 7a 65 4f 4b | 0d 09 09 09 6d 6f 76 65 |leSizeOK|....move|
|00003e80| 2e 6c 09 09 23 73 69 7a | 65 6f 66 28 4d 65 6d 56 |.l..#siz|eof(MemV|
|00003e90| 61 72 73 29 2c 44 30 0d | 09 09 09 5f 53 65 74 48 |ars),D0.|..._SetH|
|00003ea0| 61 6e 64 6c 65 53 69 7a | 65 0d 09 09 09 5f 48 4c |andleSiz|e...._HL|
|00003eb0| 6f 63 6b 09 09 09 09 09 | 09 09 09 09 2f 2f 20 4c |ock.....|....// L|
|00003ec0| 6f 63 6b 20 41 46 54 45 | 52 20 73 69 7a 65 20 69 |ock AFTE|R size i|
|00003ed0| 73 20 69 6e 63 72 65 61 | 73 65 64 2e 0d 09 09 09 |s increa|sed.....|
|00003ee0| 6d 6f 76 65 2e 6c 09 09 | 28 56 61 72 73 29 2c 44 |move.l..|(Vars),D|
|00003ef0| 30 09 09 09 09 09 2f 2f | 20 44 65 66 65 72 65 6e |0.....//| Deferen|
|00003f00| 63 65 20 68 61 6e 64 6c | 65 2e 0d 09 09 09 5f 53 |ce handl|e....._S|
|00003f10| 74 72 69 70 41 64 64 72 | 65 73 73 09 09 09 09 09 |tripAddr|ess.....|
|00003f20| 09 09 2f 2f 20 46 6f 72 | 20 77 68 65 6e 20 77 65 |..// For| when we|
|00003f30| 20 75 73 65 20 74 68 69 | 73 20 69 6e 20 33 32 2d | use thi|s in 32-|
|00003f40| 62 69 74 20 6d 6f 64 65 | 2e 0d 09 09 09 6d 6f 76 |bit mode|.....mov|
|00003f50| 65 2e 6c 09 09 44 30 2c | 56 61 72 73 0d 09 09 09 |e.l..D0,|Vars....|
|00003f60| 6c 65 61 09 09 09 40 6d | 79 56 61 72 73 2c 61 30 |lea...@m|yVars,a0|
|00003f70| 0d 09 09 09 6d 6f 76 65 | 2e 6c 09 09 56 61 72 73 |....move|.l..Vars|
|00003f80| 2c 28 61 30 29 0d 0d 09 | 09 09 6c 65 61 09 09 09 |,(a0)...|..lea...|
|00003f90| 40 43 6f 70 79 45 6e 64 | 2c 61 30 0d 09 09 09 6c |@CopyEnd|,a0....l|
|00003fa0| 65 61 09 09 09 40 43 6f | 70 79 53 74 61 72 74 2c |ea...@Co|pyStart,|
|00003fb0| 61 31 0d 09 09 09 73 75 | 62 2e 6c 09 09 61 31 2c |a1....su|b.l..a1,|
|00003fc0| 61 30 09 09 0d 09 09 09 | 6d 6f 76 65 2e 6c 09 09 |a0......|move.l..|
|00003fd0| 61 30 2c 44 30 0d 09 09 | 09 6d 6f 76 65 2e 6c 09 |a0,D0...|.move.l.|
|00003fe0| 09 44 30 2c 53 63 72 61 | 74 63 68 09 09 09 09 09 |.D0,Scra|tch.....|
|00003ff0| 2f 2f 20 53 74 6f 72 65 | 20 74 68 65 20 73 69 7a |// Store| the siz|
|00004000| 65 20 66 6f 72 20 6c 61 | 74 65 72 2e 0d 09 09 09 |e for la|ter.....|
|00004010| 5f 4e 65 77 50 74 72 09 | 09 09 09 09 09 09 09 09 |_NewPtr.|........|
|00004020| 2f 2f 20 43 72 65 61 74 | 65 20 6e 65 77 20 62 6c |// Creat|e new bl|
|00004030| 6f 63 6b 20 69 6e 20 73 | 79 73 74 65 6d 20 68 65 |ock in s|ystem he|
|00004040| 61 70 2e 0d 09 09 09 6d | 6f 76 65 2e 6c 09 09 41 |ap.....m|ove.l..A|
|00004050| 30 2c 44 30 09 09 09 09 | 09 09 2f 2f 20 4a 75 73 |0,D0....|..// Jus|
|00004060| 74 20 74 6f 20 73 65 74 | 20 63 6f 6e 64 69 74 69 |t to set| conditi|
|00004070| 6f 6e 20 63 6f 64 65 73 | 2e 0d 09 09 09 42 45 51 |on codes|.....BEQ|
|00004080| 09 09 09 40 42 61 64 45 | 6e 64 69 6e 67 09 09 09 |...@BadE|nding...|
|00004090| 09 09 2f 2f 20 49 66 20 | 6e 69 6c 20 70 74 72 2c |..// If |nil ptr,|
|000040a0| 20 65 78 69 74 2e 0d 09 | 09 09 6d 6f 76 65 2e 6c | exit...|..move.l|
|000040b0| 09 09 61 30 2c 43 6f 64 | 65 43 6f 70 79 09 09 09 |..a0,Cod|eCopy...|
|000040c0| 09 09 2f 2f 20 43 6f 70 | 79 20 64 65 73 74 69 6e |..// Cop|y destin|
|000040d0| 61 74 69 6f 6e 20 69 6e | 74 6f 20 61 30 2e 0d 09 |ation in|to a0...|
|000040e0| 09 09 6c 65 61 09 09 09 | 40 43 6f 70 79 53 74 61 |..lea...|@CopySta|
|000040f0| 72 74 2c 61 31 09 09 09 | 09 2f 2f 20 43 6f 70 79 |rt,a1...|.// Copy|
|00004100| 20 73 6f 75 72 63 65 20 | 69 6e 74 6f 20 61 31 2e | source |into a1.|
|00004110| 0d 09 09 09 62 72 61 09 | 09 09 40 43 6f 70 79 54 |....bra.|..@CopyT|
|00004120| 65 73 74 0d 40 43 6f 70 | 79 4c 6f 6f 70 09 6d 6f |est.@Cop|yLoop.mo|
|00004130| 76 65 2e 62 09 09 28 61 | 31 29 2b 2c 28 61 30 29 |ve.b..(a|1)+,(a0)|
|00004140| 2b 0d 40 43 6f 70 79 54 | 65 73 74 09 64 62 72 61 |+.@CopyT|est.dbra|
|00004150| 09 09 53 63 72 61 74 63 | 68 2c 40 43 6f 70 79 4c |..Scratc|h,@CopyL|
|00004160| 6f 6f 70 0d 0d 09 09 09 | 63 6c 72 2e 62 09 09 56 |oop.....|clr.b..V|
|00004170| 61 72 73 2d 3e 55 73 65 | 33 32 42 69 74 41 64 64 |ars->Use|32BitAdd|
|00004180| 72 0d 09 09 09 62 74 73 | 74 09 09 23 36 2c 52 4f |r....bts|t..#6,RO|
|00004190| 4d 38 35 09 09 09 09 09 | 2f 2f 20 43 6c 65 61 72 |M85.....|// Clear|
|000041a0| 20 69 66 20 77 65 20 68 | 61 76 65 20 63 6f 6c 6f | if we h|ave colo|
|000041b0| 72 20 51 44 2e 0d 09 09 | 09 53 45 51 09 09 09 56 |r QD....|.SEQ...V|
|000041c0| 61 72 73 2d 3e 43 6f 6c | 6f 72 41 76 61 69 6c 0d |ars->Col|orAvail.|
|000041d0| 09 09 09 42 4e 45 09 09 | 09 40 42 57 4f 6e 6c 79 |...BNE..|.@BWOnly|
|000041e0| 53 65 74 55 70 0d 09 0d | 09 09 09 6d 6f 76 65 2e |SetUp...|...move.|
|000041f0| 77 09 09 23 30 78 41 38 | 39 46 2c 44 30 09 09 09 |w..#0xA8|9F,D0...|
|00004200| 09 09 2f 2f 20 5f 55 6e | 69 6d 70 6c 65 6d 65 6e |..// _Un|implemen|
|00004210| 74 65 64 0d 09 09 09 5f | 47 65 74 54 72 61 70 41 |ted...._|GetTrapA|
|00004220| 64 64 72 65 73 73 20 20 | 4e 45 57 54 4f 4f 4c 0d |ddress  |NEWTOOL.|
|00004230| 09 09 09 6d 6f 76 65 2e | 6c 09 09 41 30 2c 41 31 |...move.|l..A0,A1|
|00004240| 0d 09 09 09 6d 6f 76 65 | 2e 77 09 09 23 30 78 41 |....move|.w..#0xA|
|00004250| 30 35 44 2c 44 30 09 09 | 09 09 09 2f 2f 20 5f 53 |05D,D0..|...// _S|
|00004260| 77 61 70 4d 4d 55 4d 6f | 64 65 0d 09 09 09 5f 47 |wapMMUMo|de...._G|
|00004270| 65 74 54 72 61 70 41 64 | 64 72 65 73 73 20 20 4e |etTrapAd|dress  N|
|00004280| 45 57 4f 53 0d 09 09 09 | 63 6d 70 2e 6c 09 09 41 |EWOS....|cmp.l..A|
|00004290| 30 2c 41 31 0d 09 09 09 | 53 4e 45 09 09 09 56 61 |0,A1....|SNE...Va|
|000042a0| 72 73 2d 3e 55 73 65 33 | 32 42 69 74 41 64 64 72 |rs->Use3|2BitAddr|
|000042b0| 0d 0d 09 09 09 6d 6f 76 | 65 2e 6c 09 09 4d 61 69 |.....mov|e.l..Mai|
|000042c0| 6e 44 65 76 69 63 65 2c | 61 30 0d 09 09 09 6d 6f |nDevice,|a0....mo|
|000042d0| 76 65 2e 6c 09 09 28 61 | 30 29 2c 61 30 09 09 09 |ve.l..(a|0),a0...|
|000042e0| 09 09 09 2f 2f 20 44 65 | 72 65 66 65 72 65 6e 63 |...// De|referenc|
|000042f0| 65 20 74 68 65 20 68 61 | 6e 64 6c 65 2e 0d 09 09 |e the ha|ndle....|
|00004300| 09 6d 6f 76 65 2e 6c 09 | 09 47 44 65 76 69 63 65 |.move.l.|.GDevice|
|00004310| 2e 67 64 50 4d 61 70 28 | 61 30 29 2c 61 30 0d 09 |.gdPMap(|a0),a0..|
|00004320| 09 09 6d 6f 76 65 2e 6c | 09 09 28 61 30 29 2c 44 |..move.l|..(a0),D|
|00004330| 30 0d 09 09 09 5f 53 74 | 72 69 70 41 64 64 72 65 |0...._St|ripAddre|
|00004340| 73 73 0d 09 09 09 6d 6f | 76 65 2e 6c 09 09 44 30 |ss....mo|ve.l..D0|
|00004350| 2c 56 61 72 73 2d 3e 4d | 61 69 6e 50 4d 61 70 0d |,Vars->M|ainPMap.|
|00004360| 0d 09 09 09 70 65 61 09 | 09 09 56 61 72 73 2d 3e |....pea.|..Vars->|
|00004370| 50 69 65 50 6f 72 74 0d | 09 09 09 5f 4f 70 65 6e |PiePort.|..._Open|
|00004380| 43 50 6f 72 74 09 09 09 | 09 09 09 09 09 2f 2f 20 |CPort...|.....// |
|00004390| 4e 6f 74 65 20 74 68 61 | 74 20 77 65 20 4d 55 53 |Note tha|t we MUS|
|000043a0| 54 20 62 65 20 69 6e 20 | 74 68 65 20 73 79 73 74 |T be in |the syst|
|000043b0| 65 6d 20 68 65 61 70 2c | 0d 09 09 09 09 09 09 09 |em heap,|........|
|000043c0| 09 09 09 09 09 09 2f 2f | 20 20 20 6f 72 20 65 6c |......//|   or el|
|000043d0| 73 65 20 61 6c 6c 20 6f | 66 20 74 68 65 20 72 67 |se all o|f the rg|
|000043e0| 6e 73 2c 20 65 74 63 20 | 77 69 6c 6c 20 62 65 20 |ns, etc |will be |
|000043f0| 74 72 61 73 68 65 64 2e | 0d 0d 09 09 09 42 52 41 |trashed.|.....BRA|
|00004400| 09 09 09 40 50 61 73 74 | 43 6f 6c 6f 72 53 65 74 |...@Past|ColorSet|
|00004410| 75 70 0d 0d 40 42 57 4f | 6e 6c 79 53 65 74 55 70 |up..@BWO|nlySetUp|
|00004420| 0d 09 09 09 70 65 61 09 | 09 09 56 61 72 73 2d 3e |....pea.|..Vars->|
|00004430| 50 69 65 50 6f 72 74 0d | 09 09 09 5f 4f 70 65 6e |PiePort.|..._Open|
|00004440| 50 6f 72 74 09 09 09 09 | 09 09 09 09 2f 2f 20 4e |Port....|....// N|
|00004450| 6f 74 65 20 74 68 61 74 | 20 77 65 20 4d 55 53 54 |ote that| we MUST|
|00004460| 20 62 65 20 69 6e 20 74 | 68 65 20 73 79 73 74 65 | be in t|he syste|
|00004470| 6d 20 68 65 61 70 2c 0d | 09 09 09 09 09 09 09 09 |m heap,.|........|
|00004480| 09 09 09 09 09 2f 2f 20 | 20 20 6f 72 20 65 6c 73 |.....// |  or els|
|00004490| 65 20 61 6c 6c 20 6f 66 | 20 74 68 65 20 72 67 6e |e all of| the rgn|
|000044a0| 73 2c 20 65 74 63 20 77 | 69 6c 6c 20 62 65 20 74 |s, etc w|ill be t|
|000044b0| 72 61 73 68 65 64 2e 0d | 0d 40 50 61 73 74 43 6f |rashed..|.@PastCo|
|000044c0| 6c 6f 72 53 65 74 75 70 | 0d 09 09 09 63 6c 72 2e |lorSetup|....clr.|
|000044d0| 6c 09 09 56 61 72 73 2d | 3e 43 6f 6c 6f 72 53 69 |l..Vars-|>ColorSi|
|000044e0| 7a 65 09 09 09 09 2f 2f | 20 54 68 69 73 20 61 6c |ze....//| This al|
|000044f0| 73 6f 20 63 6c 65 61 72 | 73 20 43 6f 6c 6f 72 49 |so clear|s ColorI|
|00004500| 6e 64 65 78 2e 0d 09 09 | 09 42 53 52 09 09 09 40 |ndex....|.BSR...@|
|00004510| 55 70 64 61 74 65 43 6f | 6c 6f 72 42 69 74 73 09 |UpdateCo|lorBits.|
|00004520| 09 09 2f 2f 20 53 65 74 | 20 75 70 20 43 6f 6c 6f |..// Set| up Colo|
|00004530| 72 49 6e 64 65 78 2e 0d | 09 09 0d 09 09 09 63 6c |rIndex..|......cl|
|00004540| 72 2e 6c 09 09 56 61 72 | 73 2d 3e 50 69 65 4e 65 |r.l..Var|s->PieNe|
|00004550| 78 74 55 70 64 61 74 65 | 0d 09 09 09 63 6c 72 2e |xtUpdate|....clr.|
|00004560| 6c 09 09 56 61 72 73 2d | 3e 56 42 4c 48 65 61 70 |l..Vars-|>VBLHeap|
|00004570| 09 09 09 09 2f 2f 20 5a | 65 72 6f 20 69 73 20 74 |....// Z|ero is t|
|00004580| 68 65 20 73 69 67 6e 61 | 6c 20 74 6f 20 6e 6f 74 |he signa|l to not|
|00004590| 20 77 6f 72 72 79 20 61 | 62 6f 75 74 20 74 68 65 | worry a|bout the|
|000045a0| 20 68 65 61 70 2e 0d 0d | 09 09 09 6d 6f 76 65 2e | heap...|...move.|
|000045b0| 77 09 09 23 30 78 41 38 | 39 46 2c 44 30 09 09 09 |w..#0xA8|9F,D0...|
|000045c0| 09 09 2f 2f 20 5f 55 6e | 69 6d 70 6c 65 6d 65 6e |..// _Un|implemen|
|000045d0| 74 65 64 0d 09 09 09 5f | 47 65 74 54 72 61 70 41 |ted...._|GetTrapA|
|000045e0| 64 64 72 65 73 73 20 20 | 4e 45 57 54 4f 4f 4c 0d |ddress  |NEWTOOL.|
|000045f0| 09 09 09 6d 6f 76 65 2e | 6c 09 09 41 30 2c 41 31 |...move.|l..A0,A1|
|00004600| 0d 09 09 09 6d 6f 76 65 | 2e 77 09 09 23 30 78 41 |....move|.w..#0xA|
|00004610| 30 41 44 2c 44 30 09 09 | 09 09 09 2f 2f 20 5f 47 |0AD,D0..|...// _G|
|00004620| 65 73 74 61 6c 74 44 69 | 73 70 61 74 63 68 0d 09 |estaltDi|spatch..|
|00004630| 09 09 5f 47 65 74 54 72 | 61 70 41 64 64 72 65 73 |.._GetTr|apAddres|
|00004640| 73 20 20 4e 45 57 4f 53 | 0d 09 09 09 63 6d 70 2e |s  NEWOS|....cmp.|
|00004650| 6c 09 09 41 30 2c 41 31 | 0d 09 09 09 53 4e 45 09 |l..A0,A1|....SNE.|
|00004660| 09 09 56 61 72 73 2d 3e | 47 65 73 74 61 6c 74 50 |..Vars->|GestaltP|
|00004670| 72 65 73 65 6e 74 0d 09 | 09 09 42 45 51 09 09 09 |resent..|..BEQ...|
|00004680| 40 4e 6f 47 65 73 74 61 | 6c 74 0d 09 09 09 6d 6f |@NoGesta|lt....mo|
|00004690| 76 65 2e 6c 09 09 23 27 | 4d 65 6d 56 27 2c 44 30 |ve.l..#'|MemV',D0|
|000046a0| 09 09 09 09 09 2f 2f 20 | 47 65 73 74 61 6c 74 20 |.....// |Gestalt |
|000046b0| 73 65 6c 65 63 74 6f 72 | 2e 0d 09 09 09 6c 65 61 |selector|.....lea|
|000046c0| 09 09 09 40 47 65 73 74 | 61 6c 74 53 65 6c 65 63 |...@Gest|altSelec|
|000046d0| 74 6f 72 2c 61 30 0d 09 | 09 09 6c 65 61 09 09 09 |tor,a0..|..lea...|
|000046e0| 40 43 6f 70 79 53 74 61 | 72 74 2c 61 31 0d 09 09 |@CopySta|rt,a1...|
|000046f0| 09 73 75 62 2e 6c 09 09 | 61 31 2c 61 30 0d 09 09 |.sub.l..|a1,a0...|
|00004700| 09 61 64 64 2e 6c 09 09 | 43 6f 64 65 43 6f 70 79 |.add.l..|CodeCopy|
|00004710| 2c 61 30 09 09 09 09 09 | 2f 2f 20 6c 65 61 20 20 |,a0.....|// lea  |
|00004720| 40 47 65 73 74 61 6c 74 | 53 65 6c 65 63 74 6f 72 |@Gestalt|Selector|
|00004730| 2d 40 43 6f 70 79 53 74 | 61 72 74 28 43 6f 64 65 |-@CopySt|art(Code|
|00004740| 43 6f 70 79 29 2c 61 30 | 0d 09 09 09 5f 4e 65 77 |Copy),a0|...._New|
|00004750| 47 65 73 74 61 6c 74 0d | 09 09 09 42 45 51 09 09 |Gestalt.|...BEQ..|
|00004760| 09 40 54 65 73 74 53 61 | 76 65 72 09 09 09 09 09 |.@TestSa|ver.....|
|00004770| 2f 2f 20 45 72 72 6f 72 | 20 69 6e 20 44 30 20 68 |// Error| in D0 h|
|00004780| 61 73 20 62 65 65 6e 20 | 74 65 73 74 65 64 2c 20 |as been |tested, |
|00004790| 73 6b 69 70 20 69 6e 20 | 4e 6f 45 72 72 2e 0d 09 |skip in |NoErr...|
|000047a0| 09 09 6d 6f 76 65 2e 6c | 09 09 56 61 72 73 2c 41 |..move.l|..Vars,A|
|000047b0| 30 09 09 09 09 09 09 2f | 2f 20 4f 74 68 65 72 77 |0....../|/ Otherw|
|000047c0| 69 73 65 20 77 65 27 72 | 65 20 70 72 6f 62 61 62 |ise we'r|e probab|
|000047d0| 6c 79 20 61 6c 72 65 61 | 64 79 20 69 6e 73 74 61 |ly alrea|dy insta|
|000047e0| 6c 6c 65 64 2c 0d 09 09 | 09 5f 52 65 63 6f 76 65 |lled,...|._Recove|
|000047f0| 72 48 61 6e 64 6c 65 09 | 09 09 09 09 09 09 2f 2f |rHandle.|......//|
|00004800| 20 20 20 20 20 20 73 61 | 79 20 67 6f 6f 64 62 79 |      sa|y goodby|
|00004810| 65 2e 0d 09 09 09 5f 44 | 69 73 70 6f 73 48 61 6e |e....._D|isposHan|
|00004820| 64 6c 65 0d 09 09 09 6d | 6f 76 65 2e 6c 09 09 43 |dle....m|ove.l..C|
|00004830| 6f 64 65 43 6f 70 79 2c | 41 30 0d 09 09 09 5f 44 |odeCopy,|A0...._D|
|00004840| 69 73 70 6f 73 50 74 72 | 0d 09 09 09 42 52 41 09 |isposPtr|....BRA.|
|00004850| 09 09 40 42 61 64 45 6e | 64 69 6e 67 0d 0d 40 54 |..@BadEn|ding..@T|
|00004860| 65 73 74 53 61 76 65 72 | 09 6d 6f 76 65 2e 6c 09 |estSaver|.move.l.|
|00004870| 09 23 67 65 73 74 61 6c | 74 53 63 72 65 65 6e 53 |.#gestal|tScreenS|
|00004880| 61 76 65 72 41 74 74 72 | 2c 44 30 09 2f 2f 20 47 |averAttr|,D0.// G|
|00004890| 65 73 74 61 6c 74 20 73 | 65 6c 65 63 74 6f 72 2e |estalt s|elector.|
|000048a0| 0d 09 09 09 5f 47 65 73 | 74 61 6c 74 0d 09 09 09 |...._Ges|talt....|
|000048b0| 42 4e 45 09 09 09 40 53 | 55 4e 6f 53 61 76 65 72 |BNE...@S|UNoSaver|
|000048c0| 09 09 09 09 09 2f 2f 20 | 4c 65 61 76 65 20 6f 6e |.....// |Leave on|
|000048d0| 20 65 72 72 6f 72 2e 0d | 09 09 09 6d 6f 76 65 09 | error..|...move.|
|000048e0| 09 61 30 2c 44 30 0d 09 | 09 09 42 54 53 54 09 09 |.a0,D0..|..BTST..|
|000048f0| 23 67 65 73 74 61 6c 74 | 53 61 76 65 72 54 75 72 |#gestalt|SaverTur|
|00004900| 6e 65 64 4f 6e 2c 44 30 | 0d 09 09 09 53 4e 45 09 |nedOn,D0|....SNE.|
|00004910| 09 09 56 61 72 73 2d 3e | 53 63 72 6e 53 61 76 65 |..Vars->|ScrnSave|
|00004920| 72 50 72 65 73 65 6e 74 | 0d 09 09 09 42 52 41 09 |rPresent|....BRA.|
|00004930| 09 09 40 50 61 73 74 47 | 65 73 74 61 6c 74 0d 40 |..@PastG|estalt.@|
|00004940| 53 55 4e 6f 53 61 76 65 | 72 0d 0d 40 4e 6f 47 65 |SUNoSave|r..@NoGe|
|00004950| 73 74 61 6c 74 09 53 46 | 09 09 09 56 61 72 73 2d |stalt.SF|...Vars-|
|00004960| 3e 53 63 72 6e 53 61 76 | 65 72 50 72 65 73 65 6e |>ScrnSav|erPresen|
|00004970| 74 0d 0d 40 50 61 73 74 | 47 65 73 74 61 6c 74 0d |t..@Past|Gestalt.|
|00004980| 09 09 09 6c 65 61 09 09 | 09 56 61 72 73 2d 3e 56 |...lea..|.Vars->V|
|00004990| 42 4c 52 65 63 2c 61 30 | 0d 09 09 09 63 6c 72 2e |BLRec,a0|....clr.|
|000049a0| 6c 09 09 56 61 72 73 2d | 3e 56 42 4c 52 65 63 2e |l..Vars-|>VBLRec.|
|000049b0| 71 4c 69 6e 6b 0d 09 09 | 09 6d 6f 76 65 2e 77 09 |qLink...|.move.w.|
|000049c0| 09 23 31 2c 56 61 72 73 | 2d 3e 56 42 4c 52 65 63 |.#1,Vars|->VBLRec|
|000049d0| 2e 71 54 79 70 65 09 09 | 2f 2f 20 76 62 6c 54 79 |.qType..|// vblTy|
|000049e0| 70 65 3d 31 0d 09 09 09 | 6c 65 61 09 09 09 40 56 |pe=1....|lea...@V|
|000049f0| 42 4c 54 61 73 6b 2c 61 | 31 0d 09 09 09 6d 6f 76 |BLTask,a|1....mov|
|00004a00| 65 2e 6c 09 09 61 31 2c | 64 30 0d 09 09 09 6c 65 |e.l..a1,|d0....le|
|00004a10| 61 09 09 09 40 43 6f 70 | 79 53 74 61 72 74 2c 61 |a...@Cop|yStart,a|
|00004a20| 31 0d 09 09 09 73 75 62 | 2e 6c 09 09 61 31 2c 44 |1....sub|.l..a1,D|
|00004a30| 30 0d 09 09 09 61 64 64 | 2e 6c 09 09 43 6f 64 65 |0....add|.l..Code|
|00004a40| 43 6f 70 79 2c 44 30 09 | 09 09 09 09 2f 2f 20 6c |Copy,D0.|....// l|
|00004a50| 65 61 20 20 40 56 42 4c | 54 61 73 6b 2d 40 43 6f |ea  @VBL|Task-@Co|
|00004a60| 70 79 53 74 61 72 74 28 | 43 6f 64 65 43 6f 70 79 |pyStart(|CodeCopy|
|00004a70| 29 2c 44 30 0d 09 09 09 | 5f 53 74 72 69 70 41 64 |),D0....|_StripAd|
|00004a80| 64 72 65 73 73 09 09 09 | 09 09 09 09 2f 2f 20 4d |dress...|....// M|
|00004a90| 61 6b 65 20 73 75 72 65 | 20 77 65 20 64 6f 6e 27 |ake sure| we don'|
|00004aa0| 74 20 67 65 74 20 61 20 | 64 69 72 74 79 20 50 43 |t get a |dirty PC|
|00004ab0| 2e 0d 09 09 09 6d 6f 76 | 65 2e 6c 09 09 44 30 2c |.....mov|e.l..D0,|
|00004ac0| 56 61 72 73 2d 3e 56 42 | 4c 52 65 63 2e 76 62 6c |Vars->VB|LRec.vbl|
|00004ad0| 41 64 64 72 0d 09 09 09 | 6d 6f 76 65 2e 77 09 09 |Addr....|move.w..|
|00004ae0| 23 31 2c 56 61 72 73 2d | 3e 56 42 4c 52 65 63 2e |#1,Vars-|>VBLRec.|
|00004af0| 76 62 6c 43 6f 75 6e 74 | 0d 09 09 09 63 6c 72 2e |vblCount|....clr.|
|00004b00| 77 09 09 56 61 72 73 2d | 3e 56 42 4c 52 65 63 2e |w..Vars-|>VBLRec.|
|00004b10| 76 62 6c 50 68 61 73 65 | 0d 09 09 09 74 73 74 2e |vblPhase|....tst.|
|00004b20| 62 09 09 56 61 72 73 2d | 3e 43 6f 6c 6f 72 41 76 |b..Vars-|>ColorAv|
|00004b30| 61 69 6c 0d 09 09 09 62 | 6e 65 09 09 09 40 49 6e |ail....b|ne...@In|
|00004b40| 73 74 61 6c 6c 56 42 4c | 69 6e 53 6c 6f 74 0d 40 |stallVBL|inSlot.@|
|00004b50| 53 6c 6f 74 6c 65 73 73 | 56 42 4c 49 6e 73 74 61 |Slotless|VBLInsta|
|00004b60| 6c 6c 0d 09 09 09 5f 56 | 49 6e 73 74 61 6c 6c 0d |ll...._V|Install.|
|00004b70| 09 09 09 62 72 61 09 09 | 09 40 44 6f 6e 65 57 56 |...bra..|.@DoneWV|
|00004b80| 42 4c 49 6e 73 74 61 6c | 6c 0d 40 49 6e 73 74 61 |BLInstal|l.@Insta|
|00004b90| 6c 6c 56 42 4c 69 6e 53 | 6c 6f 74 0d 09 09 09 6d |llVBLinS|lot....m|
|00004ba0| 6f 76 65 2e 6c 09 09 4d | 61 69 6e 44 65 76 69 63 |ove.l..M|ainDevic|
|00004bb0| 65 2c 61 31 0d 09 09 09 | 6d 6f 76 65 2e 6c 09 09 |e,a1....|move.l..|
|00004bc0| 28 61 31 29 2c 61 31 09 | 09 09 09 09 09 2f 2f 20 |(a1),a1.|.....// |
|00004bd0| 44 65 72 65 66 65 72 65 | 6e 63 65 20 74 68 65 20 |Derefere|nce the |
|00004be0| 68 61 6e 64 6c 65 2e 0d | 0d 09 09 09 6d 6f 76 65 |handle..|....move|
|00004bf0| 2e 77 09 09 47 44 65 76 | 69 63 65 2e 67 64 52 65 |.w..GDev|ice.gdRe|
|00004c00| 66 4e 75 6d 28 61 31 29 | 2c 44 30 09 09 2f 2f 20 |fNum(a1)|,D0..// |
|00004c10| 5c 20 20 54 68 65 73 65 | 20 6c 69 6e 65 73 20 61 |\  These| lines a|
|00004c20| 72 65 20 74 61 6b 65 6e | 20 28 6c 6f 6f 73 65 6c |re taken| (loosel|
|00004c30| 79 29 0d 09 09 09 6e 6f | 74 2e 77 09 09 44 30 09 |y)....no|t.w..D0.|
|00004c40| 09 09 09 09 09 09 2f 2f | 20 20 7c 20 66 72 6f 6d |......//|  | from|
|00004c50| 20 74 68 65 20 67 6c 75 | 65 20 72 6f 75 74 69 6e | the glu|e routin|
|00004c60| 65 20 47 65 74 44 43 74 | 6c 45 6e 74 72 79 2e 0d |e GetDCt|lEntry..|
|00004c70| 09 09 09 63 6d 70 2e 77 | 09 09 55 6e 69 74 4e 74 |...cmp.w|..UnitNt|
|00004c80| 72 79 43 6e 74 2c 44 30 | 09 09 09 09 2f 2f 20 20 |ryCnt,D0|....//  |
|00004c90| 7c 0d 09 09 09 42 43 43 | 09 09 09 40 53 6c 6f 74 ||....BCC|...@Slot|
|00004ca0| 6c 65 73 73 56 42 4c 49 | 6e 73 74 61 6c 6c 09 09 |lessVBLI|nstall..|
|00004cb0| 09 2f 2f 20 20 7c 20 2a | 20 45 72 72 6f 72 20 2a |.//  | *| Error *|
|00004cc0| 0d 09 09 09 4c 53 4c 2e | 77 09 09 23 32 2c 44 30 |....LSL.|w..#2,D0|
|00004cd0| 09 09 09 09 09 09 2f 2f | 20 20 7c 0d 09 09 09 6d |......//|  |....m|
|00004ce0| 6f 76 65 2e 6c 09 09 55 | 54 61 62 6c 65 42 61 73 |ove.l..U|TableBas|
|00004cf0| 65 2c 61 31 09 09 09 09 | 2f 2f 20 20 7c 0d 09 09 |e,a1....|//  |...|
|00004d00| 09 6d 6f 76 65 2e 6c 20 | 20 20 09 30 28 61 31 2c |.move.l |  .0(a1,|
|00004d10| 44 30 2e 77 29 2c 61 31 | 09 09 09 09 2f 2f 20 20 |D0.w),a1|....//  |
|00004d20| 7c 0d 09 09 09 63 6d 70 | 2e 6c 09 09 23 30 2c 61 ||....cmp|.l..#0,a|
|00004d30| 31 09 09 09 09 09 09 2f | 2f 20 20 7c 0d 09 09 09 |1....../|/  |....|
|00004d40| 62 65 71 09 09 09 40 53 | 6c 6f 74 6c 65 73 73 56 |beq...@S|lotlessV|
|00004d50| 42 4c 49 6e 73 74 61 6c | 6c 09 09 09 2f 2f 20 2f |BLInstal|l...// /|
|00004d60| 20 20 2a 20 45 72 72 6f | 72 20 2a 0d 0d 09 09 09 |  * Erro|r *.....|
|00004d70| 6d 6f 76 65 2e 6c 09 09 | 28 61 31 29 2c 61 31 09 |move.l..|(a1),a1.|
|00004d80| 09 09 09 09 09 2f 2f 20 | 44 65 72 65 66 65 72 65 |.....// |Derefere|
|00004d90| 6e 63 65 20 41 75 78 44 | 43 45 48 61 6e 64 6c 65 |nce AuxD|CEHandle|
|00004da0| 2e 0d 09 09 09 6d 6f 76 | 65 71 09 09 23 30 2c 44 |.....mov|eq..#0,D|
|00004db0| 30 09 09 09 09 09 09 2f | 2f 20 43 6c 65 61 72 20 |0....../|/ Clear |
|00004dc0| 6f 75 74 20 44 30 2e 0d | 09 09 09 6d 6f 76 65 2e |out D0..|...move.|
|00004dd0| 62 09 09 41 75 78 44 43 | 45 2e 64 43 74 6c 53 6c |b..AuxDC|E.dCtlSl|
|00004de0| 6f 74 28 61 31 29 2c 44 | 30 0d 09 09 09 62 65 71 |ot(a1),D|0....beq|
|00004df0| 09 09 09 40 53 6c 6f 74 | 6c 65 73 73 56 42 4c 49 |...@Slot|lessVBLI|
|00004e00| 6e 73 74 61 6c 6c 0d 0d | 40 56 42 4c 53 6c 6f 74 |nstall..|@VBLSlot|
|00004e10| 4f 4b 09 5f 53 6c 6f 74 | 56 49 6e 73 74 61 6c 6c |OK._Slot|VInstall|
|00004e20| 0d 0d 40 44 6f 6e 65 57 | 56 42 4c 49 6e 73 74 61 |..@DoneW|VBLInsta|
|00004e30| 6c 6c 0d 09 09 09 6d 6f | 76 65 2e 77 09 09 23 30 |ll....mo|ve.w..#0|
|00004e40| 78 41 39 33 37 2c 44 30 | 09 09 09 09 09 2f 2f 20 |xA937,D0|.....// |
|00004e50| 5f 44 72 61 77 4d 65 6e | 75 42 61 72 0d 09 09 09 |_DrawMen|uBar....|
|00004e60| 5f 47 65 74 54 72 61 70 | 41 64 64 72 65 73 73 20 |_GetTrap|Address |
|00004e70| 20 4e 45 57 54 4f 4f 4c | 0d 09 09 09 6d 6f 76 65 | NEWTOOL|....move|
|00004e80| 2e 6c 09 09 61 30 2c 56 | 61 72 73 2d 3e 4f 6c 64 |.l..a0,V|ars->Old|
|00004e90| 44 72 61 77 4d 42 61 72 | 0d 09 09 09 6c 65 61 09 |DrawMBar|....lea.|
|00004ea0| 09 09 40 44 72 61 77 4d | 42 61 72 50 61 74 63 68 |..@DrawM|BarPatch|
|00004eb0| 2c 61 30 0d 09 09 09 6d | 6f 76 65 2e 6c 09 09 61 |,a0....m|ove.l..a|
|00004ec0| 30 2c 44 30 0d 09 09 09 | 6c 65 61 09 09 09 40 43 |0,D0....|lea...@C|
|00004ed0| 6f 70 79 53 74 61 72 74 | 2c 61 30 0d 09 09 09 73 |opyStart|,a0....s|
|00004ee0| 75 62 2e 6c 09 09 61 30 | 2c 44 30 0d 09 09 09 61 |ub.l..a0|,D0....a|
|00004ef0| 64 64 2e 6c 09 09 43 6f | 64 65 43 6f 70 79 2c 44 |dd.l..Co|deCopy,D|
|00004f00| 30 09 09 09 09 09 2f 2f | 20 6c 65 61 20 20 40 44 |0.....//| lea  @D|
|00004f10| 72 61 77 4d 42 61 72 50 | 61 74 63 68 2d 40 43 6f |rawMBarP|atch-@Co|
|00004f20| 70 79 53 74 61 72 74 28 | 43 6f 64 65 43 6f 70 79 |pyStart(|CodeCopy|
|00004f30| 29 2c 44 30 0d 09 09 09 | 5f 53 74 72 69 70 41 64 |),D0....|_StripAd|
|00004f40| 64 72 65 73 73 0d 09 09 | 09 6d 6f 76 65 2e 6c 09 |dress...|.move.l.|
|00004f50| 09 44 30 2c 61 30 0d 09 | 09 09 6d 6f 76 65 2e 77 |.D0,a0..|..move.w|
|00004f60| 09 09 23 30 78 41 39 33 | 37 2c 44 30 09 09 09 09 |..#0xA93|7,D0....|
|00004f70| 09 2f 2f 20 5f 44 72 61 | 77 4d 65 6e 75 42 61 72 |.// _Dra|wMenuBar|
|00004f80| 0d 09 09 09 5f 53 65 74 | 54 72 61 70 41 64 64 72 |...._Set|TrapAddr|
|00004f90| 65 73 73 0d 0d 09 09 09 | 6d 6f 76 65 2e 6c 09 09 |ess.....|move.l..|
|00004fa0| 4a 47 4e 45 46 69 6c 74 | 65 72 2c 56 61 72 73 2d |JGNEFilt|er,Vars-|
|00004fb0| 3e 4f 6c 64 47 4e 45 46 | 69 6c 74 65 72 0d 09 09 |>OldGNEF|ilter...|
|00004fc0| 09 6c 65 61 09 09 09 40 | 4d 79 47 4e 45 46 69 6c |.lea...@|MyGNEFil|
|00004fd0| 74 65 72 2c 61 30 0d 09 | 09 09 6c 65 61 09 09 09 |ter,a0..|..lea...|
|00004fe0| 40 43 6f 70 79 53 74 61 | 72 74 2c 61 31 0d 09 09 |@CopySta|rt,a1...|
|00004ff0| 09 73 75 62 2e 6c 09 09 | 61 31 2c 61 30 0d 09 09 |.sub.l..|a1,a0...|
|00005000| 09 61 64 64 2e 6c 09 09 | 43 6f 64 65 43 6f 70 79 |.add.l..|CodeCopy|
|00005010| 2c 61 30 09 09 09 09 09 | 2f 2f 20 6c 65 61 20 20 |,a0.....|// lea  |
|00005020| 40 4d 79 47 4e 45 46 69 | 6c 74 65 72 2d 40 43 6f |@MyGNEFi|lter-@Co|
|00005030| 70 79 53 74 61 72 74 28 | 43 6f 64 65 43 6f 70 79 |pyStart(|CodeCopy|
|00005040| 29 2c 61 30 0d 09 09 09 | 6d 6f 76 65 2e 6c 09 09 |),a0....|move.l..|
|00005050| 61 30 2c 4a 47 4e 45 46 | 69 6c 74 65 72 0d 0d 40 |a0,JGNEF|ilter..@|
|00005060| 47 6f 6f 64 45 6e 64 69 | 6e 67 09 74 73 74 2e 62 |GoodEndi|ng.tst.b|
|00005070| 09 09 56 61 72 73 2d 3e | 52 53 52 43 2e 53 68 6f |..Vars->|RSRC.Sho|
|00005080| 77 49 63 6f 6e 0d 09 09 | 09 42 45 51 09 09 09 40 |wIcon...|.BEQ...@|
|00005090| 45 78 69 74 53 65 74 55 | 70 0d 09 09 09 6d 6f 76 |ExitSetU|p....mov|
|000050a0| 65 2e 6c 09 09 28 73 70 | 29 2b 2c 54 68 65 5a 6f |e.l..(sp|)+,TheZo|
|000050b0| 6e 65 09 09 09 09 2f 2f | 20 52 65 73 74 6f 72 65 |ne....//| Restore|
|000050c0| 20 6f 6c 64 20 7a 6f 6e | 65 2e 0d 09 09 09 6d 6f | old zon|e.....mo|
|000050d0| 76 65 2e 77 09 09 23 2d | 34 30 36 34 2c 2d 28 73 |ve.w..#-|4064,-(s|
|000050e0| 70 29 0d 09 09 09 62 72 | 61 09 09 09 40 44 72 61 |p)....br|a...@Dra|
|000050f0| 77 49 63 6f 6e 0d 0d 40 | 42 61 64 45 6e 64 69 6e |wIcon..@|BadEndin|
|00005100| 67 09 6d 6f 76 65 2e 6c | 09 09 28 73 70 29 2b 2c |g.move.l|..(sp)+,|
|00005110| 54 68 65 5a 6f 6e 65 09 | 09 09 09 2f 2f 20 52 65 |TheZone.|...// Re|
|00005120| 73 74 6f 72 65 20 6f 6c | 64 20 7a 6f 6e 65 2e 0d |store ol|d zone..|
|00005130| 09 09 09 6d 6f 76 65 2e | 77 09 09 23 2d 34 30 36 |...move.|w..#-406|
|00005140| 33 2c 2d 28 73 70 29 0d | 09 09 09 62 72 61 09 09 |3,-(sp).|...bra..|
|00005150| 09 40 44 72 61 77 49 63 | 6f 6e 0d 0d 40 45 78 69 |.@DrawIc|on..@Exi|
|00005160| 74 53 65 74 55 70 09 6d | 6f 76 65 2e 6c 09 09 28 |tSetUp.m|ove.l..(|
|00005170| 73 70 29 2b 2c 54 68 65 | 5a 6f 6e 65 09 09 09 09 |sp)+,The|Zone....|
|00005180| 2f 2f 20 52 65 73 74 6f | 72 65 20 6f 6c 64 20 7a |// Resto|re old z|
|00005190| 6f 6e 65 2e 0d 40 45 78 | 69 74 53 65 74 55 70 4e |one..@Ex|itSetUpN|
|000051a0| 6f 5a 6f 6e 65 0d 09 09 | 09 55 4e 4c 4b 09 09 41 |oZone...|.UNLK..A|
|000051b0| 36 0d 09 09 09 72 65 74 | 75 72 6e 09 09 09 09 09 |6....ret|urn.....|
|000051c0| 09 09 09 09 2f 2f 20 57 | 65 20 6d 75 73 74 20 6c |....// W|e must l|
|000051d0| 65 74 20 54 48 49 4e 4b | 20 43 20 68 61 6e 64 6c |et THINK| C handl|
|000051e0| 65 20 74 68 65 20 65 78 | 69 74 2c 20 73 69 6e 63 |e the ex|it, sinc|
|000051f0| 65 20 69 74 20 73 61 76 | 65 73 20 73 6f 6d 65 20 |e it sav|es some |
|00005200| 72 65 67 69 73 74 65 72 | 73 20 66 6f 72 20 75 73 |register|s for us|
|00005210| 2e 0d 0d 40 44 72 61 77 | 49 63 6f 6e 09 4a 53 52 |...@Draw|Icon.JSR|
|00005220| 09 09 09 53 68 6f 77 49 | 63 6f 6e 46 61 6d 69 6c |...ShowI|conFamil|
|00005230| 79 0d 09 09 09 61 64 64 | 71 09 09 23 32 2c 73 70 |y....add|q..#2,sp|
|00005240| 0d 09 09 09 62 72 61 09 | 09 09 40 45 78 69 74 53 |....bra.|..@ExitS|
|00005250| 65 74 55 70 4e 6f 5a 6f | 6e 65 0d 09 09 7d 0d 09 |etUpNoZo|ne...}..|
|00005260| 7d 0d 7d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |}.}.....|........|
|00005270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005280| 00 00 01 00 00 00 01 52 | 00 00 00 52 00 00 00 46 |.......R|...R...F|
|00005290| 24 48 2f 2d f2 26 4e ad | 2d d2 4f ef 00 0c 17 03 |$H/-.&N.|-.O.....|
|000052a0| 60 c0 2f 7c 00 00 00 03 | 00 04 50 ef 00 02 20 5f |`./|....|..P... _|
|000052b0| 0e 4d 65 6d 49 4e 49 54 | 20 49 4e 49 54 2e 63 4d |.MemINIT| INIT.cM|
|000052c0| 02 00 00 00 54 45 58 54 | 4b 41 48 4c 01 00 00 34 |....TEXT|KAHL...4|
|000052d0| 00 00 54 45 58 54 4b 41 | 48 4c 01 00 00 34 00 00 |..TEXTKA|HL...4..|
|000052e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052f0| 00 00 a6 84 54 63 00 00 | 51 e3 00 00 01 98 52 88 |....Tc..|Q.....R.|
|00005300| 60 c8 0c 00 00 37 62 36 | 0c 00 00 30 65 30 04 00 |`....7b6|...0e0..|
|00005310| 00 30 12 10 04 01 00 30 | 6d 24 0c 01 00 07 6e 1e |.0.....0|m$....n.|
|00005320| e7 00 d0 01 52 88 12 10 | 04 01 00 30 6d 10 0c 01 |....R...|...0m...|
|00005330| 00 07 6e 0a e5 00 69 08 | d0 00 d0 01 52 88 72 00 |..n...i.|....R.r.|
|00005340| 4e 75 4e 56 00 00 48 e7 | 01 08 30 6e 00 16 7e 0c |NuNV..H.|..0n..~.|
|00005350| de 88 70 fe ce 80 4a 2e | 00 09 67 0a 2f 07 4e ad |..p...J.|..g./.N.|
|00005360| 2e 1a 58 8f 60 08 2f 07 | 4e ad 2e 22 58 8f 28 40 |..X.`./.|N.."X.(@|
|00005370| 28 ae 00 0a 29 6e 00 0e | 00 04 30 2e 00 16 39 40 |(...)n..|..0...9@|
|00005380| 00 00 00 08 00 38 00 14 | 01 d6 02 40 00 00 00 42 |.....8..|...@...B|
|00005390| 00 03 00 00 00 b2 00 00 | 00 bc 0b 40 43 6f 70 79 |........|...@Copy|
|000053a0| 53 74 61 72 74 00 00 00 | 2b 11 00 00 2b 19 09 40 |Start...|+...+..@|
|000053b0| 44 72 61 77 50 69 65 00 | 00 00 1d 1d 00 00 1d 2d |DrawPie.|.......-|
|000053c0| 11 40 55 70 64 61 74 65 | 43 6f 6c 6f 72 42 69 74 |.@Update|ColorBit|
|000053d0| 73 00 00 00 01 00 00 00 | 01 52 00 00 00 52 00 00 |s.......|.R...R..|
|000053e0| 00 46 00 56 06 b4 14 34 | 00 00 00 1c 00 46 00 01 |.F.V...4|.....F..|
|000053f0| 52 45 43 54 00 00 00 12 | 4d 50 53 52 00 00 00 1e |RECT....|MPSR....|
|00005400| 00 00 ff ff 00 00 00 00 | 00 00 00 00 03 ef ff ff |........|........|
|00005410| 00 00 00 0c 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+